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1.0 jtNERAL INFORMATION 

1 . 1 PROGRAM ABSTRACT 

THE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM Is MEANT TO PROVIDF 
FIELD SERVICE WITH A TOOL FOR DETERMINING THE CONNECTIVITY OF NOOF S 
ON THE NfcTWORK INTERCONNECT (NI). 

THE NIE PROGRAM WILL DETERMINE THE ABILITY OF NOOES ON THE NI TO 
COMMWICATE WITH EACH OTHER AND PROVIDE NOOE INSTALLATION VERIFICATION 
ANO PROBLEM ISOLATION. THE NIE USES THE LOW LEVEL MAINTENANCE f F A KHF s 
0^ THE OEQNA TO PROVIDE TESTING WITHOUT INTERRUPTING NORMAL OPERATION 
OF THE NI. THE VAX VERSION OF THE NIF CAN ALSO BE PUN CONCURRENT t y ON 
ANOTHER NOOE. WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USF WITH THE DIAGNOSTIC 
RlNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO T HE OPERATOR ANO TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT, APT, SLIDE ANO PAPER 
TAPE. fOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXOP* USt.t'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME; SERMCES IN SECTION 2 OF THIS DOCUMENT, 

l.«? SYSTEM REQUIREMFN1S 

IN OROER TO RLH THE CVN1A NIE PROGRAM, THE KU I OWING MINIMUM HARDWARE 
IS REQUIRED: 

- A PDP-11 CPU WITH A Q BUS (It/, 1 !, I IA2S* t U'0&) 

- MINIMUM Of ?4K WORDS Of MEMORt 

A WORKING, LINE OR REAl TIMl Cl OQK 

• A CONSOLE TERMINAL 

- AW XX.DP. Sl^PORTED LOAD MfDIA 

• U\Qm UBUSi 10 ETHERNET ADAPTER 



CVN1AA0 DEQNA Nl EXERCISER DIAG MACRO Ml<>00 A* -MAR 84 13: lc? 



)'l 

PAGE i?-i? 



SEU 3 



1.3 RELATED DOCUMENTS AND STANDARDS 

DEQNA FUNCTIONAL AND PROGRAMMING SPEC 

XXDP* USER'S MANUAL (CHQUS7.SEQ WHERE ? IS THE REV. LEVEL OF 

THE MANUAL - "C" S THE CURRENT REV.') 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

THE GOAL OF THE NIE IS TO TEST THE COMMUNICATIONS LINK AND THEREFORE 

ASSUMES THAT THE CPUS, CLOCKS, AND DEQNA'S OR DEQNA' S AT EACH END OF THE LINK 

HAVE ALREADY BEEN TESTED. 

If NO LINE OR REAL-TIME CLOCK IS FOUND, THE PROGRAM WILL NOT RUN. 

IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEQNA), 
BUT TO TEiT THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED, 

1.5 ASSUMPTIONS 

IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEQNA) HAS BEEN TESTED 
USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE 
USER DOCUMENTATION PORTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 
THE COMMANDS AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 
AND NIE, 



2.0 OPERATING INSTRUCTIONS 



THIS SECTION 
FOR DETAILED 



CONTAINS A BRIEF DESCRIPTION OF 
INFORMATION, REFER TO THE XXDP. 



THE RUNTIME SERVICES. 
USER'S MANUAL ( CHQUS ) 



2.1 



COMMANDS 



THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNT IMF SERVICED 
(SliPERVlSOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VE.Ri 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS 



COMMANO 

START 
RESTART 

CONTINUE 

PROCEED 

EXIT 

ADD 

DROP 

PRINT 

DISPLAr 

t I AGS 
Zl I AGS 



EFFECT 



START THE DIAGNOSTIC F ROM AN INITIAL STATE 
START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 
CONTINUE FROM AN ERROR HALT 

RETURN TO XXDP* MONITOR (XXDP* OPERATION ONLl • ) 
ACTIVATE A LNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO Bt ACTIVE AT START T IM{ 
DEACTIVATE A UNIT 

INFORMATION (IF IMPLEMENTED 
SECTION 4.0) 
Of VICE IN* ORMAT ION 

ALL FLAGS CSFE SECTION 2,3) 



PRINT STATISTICAL 
Bi TH{ DIAGNOSTIC 
T tPE A I 1ST OF Al I 

T tPE THE STATE OF 



CLEAR ALL HAGS (SEE SECTION 



*) 



A CUMMANU CAN BF RECOljhl/tQ 
IQU MAT* FOR EXAMPLE, TtPE ' 



Of THE » IH'iT 
l £TA" IM&IbAD 



THRU 



CHAftACILRSi. UO 



"ilAHl 
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»\,2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPFRATION 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL Of" THF LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD". 



SWITCH 



EFFECT 



/TESTS:LIST 

/PASS: DDDDD 

/FLAGSjFLGS 

/E OP: DDDDD 
/UNITStLIST 

EXAMPLE OF SWITCH USAGE: 



EXECUTE ONLY THOSE TESTS SPECIFUO IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - / TESTS; 1 :5 : 7 - 10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
EXECUTE DDDDD PASSES (DDDDD • 1 TO 64000) 
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

MESSAGE AFTER EVERY 

(DDDDD • 1 TO 64000) 
THOSE UNITS SPECIFIED 
EXAMPLE /UNITS:0:5:10 



REPORT ENO OF PASS 
DDDDD PASSES ONLY. 
TEST /ADD/DROP ONL i 
IN THE LIST. LIST 



lc? 



USE UNITS 0,5,10,11,12 (UNIT NUMBERS - 0-63) 



START/TESTS: 1 -5/PASS: 1000/EOP: 100 

THE EFFECT OF THIS COMMA NO WILL BE; 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL LNITS WILL TESTED 1000 TIMES AND *) iHk END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONI f. A 
SWITCH CAN BE RECOGNIZED B> THE FIRST THREE CHARACTERS, YOU MAY, 
FOR EXAMPLE, TYPE "/TES:1 -5" INSTEAD OF "/TFSTS:l V\ 

WHICH SWITCHES CAN BE USED B» EACH 



BELOW IS 


A TABLE 


THAT 


SPECIFIES 


COMMAND. 










TE5TS 


PASS 

X 


FLAGS 


START 


X 


X 


RESTART 


X 


X 


X 


CONTINUE 




X 


X 


PROCEED 






X 


DROP 








ADD 








PRINT 








DISPLAY 








FLAGS 








A LAGS 








EXIT 









EOP 

X 
X 
x 



LNiTS 

> 

X 



p. ? 



FLAG 



FLAGS ARE USED TO 
LOOPING ON fRROR. 
CLEARED UNT U ExPt 



SET Uf» CtRTAIN OPERA r LONAl 

All H AGS ARE Cl EARED AT 

ICUl.T St T USING THE * I AGS 



PARAML U RS V :r "H t\ 
,[ARTL)P AND Rt MAIN 
VHCH. ► LAG 1 . 
ARC ALSO CLEARED Afr'JEU A SlAHt COMMAND UNLESS SES OSWG THE 
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FLAG SWITCH, THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFlAGS COMMANDS 
NO COMMANDS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THF LA^T FLAG SWITCH, 



FLAG 

HOE 

LOE 

IER* 

IBE* 



IXE* 

PRI 
PNT 
BOE 
UAM 
ISR 



IDR 
ADR 
LOT 
EVL 



EFFECT 



HALT ON 
RUNTIME 
LOOP ON 
INHIBIT 
INHIBIT 
FIRST LEVEL 
ERROR TYPE, 



ERROR CONTROL IS RETURNED TO 

SERVICES COMMAND MODE 

ERROR 

ALL ERROR REPORTS 

ALL ERROR REPORTS EXCEPT 

(FIRST LEVEL CONTAINS 
NUMBER, PC, TEST AND UNIT) 



INHIBIT EXTENOED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 
OIRECT MESSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 
"BELL" ON ERROR 

UNATTENOED MOOE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 
INHIBIT PROGRAM DROPPING OF UNITS 
EXECUTE AUTODROP CODE 
LOOP ON TEST 

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 



SEE THE XXDP* USER'S MANUAL FOR 
SPECIFY MORE THAN ONE FLAG WITH 
TO CAUSE THE PROGRAM TO LOOP ON 
AND TYPE A "BEcL" ON ERROR, YOU 

/FLAGS j LOE :IER: BOE 



MORE DETAILS ON FLAGS. YOU hfi Y 
THE FLAG SWITCH, FOR EXAMPl.f , 
ERROR, INHIBIT ERROR RFP.WS 
MAY USE THE FOLLOWING STRING; 



i\4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVtCfS Will PROMPT 
THE USER fW HARDWAPE INFORMATION BY TYPING T HANG* HU U ) ?" 
<OU MUST ANSWER " Y " mFTER A START COMMAND UU < \,S TKt HMRDWARE 
INFORMATION HAS BEEN "PRELOADED' USING THE St UP l.TILlTi (SEE 
CHAPTfR 6 OF THE XXDP. USER S MANUAL). k-»EN 1 0U AI'f/ufR THIS 
UV€S HON WITH A '■*". THE RUNTIME SERVICES W T ti ASX OR THE NUMBER 
(' L*41TS (IN DECIMAL). rOU Will. I Ht N l )t ASKt.L TM- -OLLOUINb 
iMrUUQNS FOR EACH UNIT. 

3 UNITS (D) i I'CR^ 



UNIT 

VI VIC* C -R ADORE .iS : ,0 

IMtkKUPI VtClUB ADOHlv 



1/4440 .^Cfc' 
: iO) 400 V<CR 



g:i 
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INTERRUPT PRIORITY : (0) 5 ?<CR> 

WHEN 10U COMPLETE THE ABOVE SEQUENCE YOU WILL BE AT THE NIE> 
COMMAND LEVEL. 

NIE> (A) ? 



?.5 NETWORK INTERRCONNEC 7 EXERCISER COMMANDS 

THF "NIE>" COMMAND LEVEL FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE START TO THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE "NIE>" PROMPT IS PRINTED. 

YOU ONL> HAVE TO TYPE ENOUGH CHAR^ TERS TO UNIQUELY SPECIFY A 
COMMAND. THE COMMAND LINE IS INTERPI TED FROM LEFT TO RIGHT. 

UNDERLINED ITEMS IN THE EXAMPLES REPRESENT THE USER'S RESPONSE TO THE 
PROMPT TO EXECUTE THAT PARTICULAR COMMAND. 



HELP OR ? 
EXAMPLE: 
NIE> lA) ? H 



PRINTS OUT A BRIEF DESCRIPTION OF NIE COMMANDS, 



OR 

NIE> (A) ? ? 



SHOW NODES 

EXAMPLE: 

NIE> (A) ? SH N 



PRINTS OUT fHE CONTENTS OF THE NODE TABLE, 



SHOW MESSAGE PRINTS OUT THE CURRENT MESSAGE PARAMETERS FQR SI/E . 

TYPE AND COPIES. 

I XAMPl E : 

NIE> (A) '} SH M 



SHOW COUNTERS PRINT 4 , OUT THE CONTENTS 0> THE HOST NODE DEUNA INTFRNAl 

COUNTERS. 

NOT* : 
tflT 5 UK THE RECEIVE tRMUH UlT MASK IS THE "RUNT PA0<1 T " HIT. THt > IS NOT PART 
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OF THE COUNTERS INFO. THIS BIT INDICATES THAT A RUNT PACKET WAS FOUND IN THE 
RECEIVE BUFFER. THE SOFTWARE WILL DISCARD THE RUNT PACKET. IT IS NOT 
CONSIDERED AN ERROR AND WILL NOT HE RECORDED AS ONE. THE HARDWARE DESIGN 
WILL ALLOW A HUNT PACKET CONDITION TO OCCUR AND REQUIRES THAT THE SOFTWARE 
HANDLE SUCH A CONDITION. SEE THE UNA DESIGN SPECIFICATIONS FOR FURTHER 
INFORMATION ON THE NATURE OF RUNT PACKETS. 

THE MEANING OF THE COUNTERS IS EXPLAINED IN THE DKJNA USER'S GUIDE 
NUMBER F.K-DF.UNA UG. 

THE ERROR BIT MASKS FOR XMI I AND RECEIVt ARE IN BINARi FORMAT, NOT OCTAL UR 
DECIMAL (I.E. 11 » BIT1 AND BITO, NOT AN OCTAL OR DECIMAL. ELEVEN. 

♦44444444 ************ *****44**+4+*++*4444**444+*++*4*444**4**4*4+4++*44*4+***44* 

i XAMPL E : 

NIE> (A) ? SH C 

NUDE ADR/TYPE THE NODE COMMAND ALLOWS THE OPERATOR TO ENTER NODES INTO 

THE NODE TABLE. NOOF S ARE SPFCU IED USING THEIR U? "t \ 
DIGIT ETHERNET PHYSICAL ADDREjS AND CAN BE SPECIFIED AS 
EITHER TARGET OR ASSIST (A DEFAULT OF TARGET IS ASSUMFO). 

444444*4«44444444444444**444*44444**4444444444444444444*4444444444444444* 

NOTE 

IF THE NODE IS TO BE CHANGED FROM A TARGET TO AN ASSIST OR VICE /ERSA, IT 
MUST BE CLEARED FROM THE TABLE FIRST} 

WHEN RUNNING THE LOOPPAIR TEST, BE VERl CAREKU WHEN DELETING NODES. IT IS 
BETTER TO DELETE NODES t \j PAIRS ( ONE TARGET NODE ANO ONE ASSIST NODE ^ . 

4444444*444444444444444*4*4444444444444444*44*444+4444**444*4*44444*444444 

EXAMPLE OF TARGET NODE ENTRY: 
NIE> (A) ? N AA-OO-04 FF -FF -FO/T 

EXAMPLE OF ASSIST NODE ENTRi : 
NIE » (A) ? N AA -00 04- FF FFFO/A 



EXAMPLE : 

NIE> (A) ? N AA 00 04 FF -FF 1-0 

EXAMPLE OF CHANGING A TARGET NODE TO AN ASSIST NODE: 



u 
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NIE> (A) ? CL N/AA 00 -04-FF FF -FO (SHE Cl.fcAR COMMAND) 
NIE> (A) ? N AA-0004-FF FF-FO/A 



MESSAGE./TYPE-/SI/E-N/COPIES-M THE MESSAGE COMMAND ALLOWS THE OPERATOR 

TO SELECT THE CURRENT MESSAGE PARAMETERS AS FOLLOWS. 
ANY OR AL. OF THE PARAMETER CAN BE CHANGED WITH THE COMMAND 
THE DEFAULT PARAMETERS ARE TYPE -ALPHA, SIZE -512.C0PIES-1 . 

TYPE ONE OF THE FOLLOWING MESSAGE TYPESi 

ALPHA -- •"*$*•( )*♦, -./0123456789, : ■ 7ABCDEFG ETC. 

ONES -- MESSAGE OF ALL ONES C 11111111 ) 

ZEROS -- MESSAGE OF ALL ZEROS (0000000 ) 

IALT -- ALTERNATING I'S AND 0' S (10101010...) 

OALT -- ALTERNATING O'S AND l'S (01010101...) 

CCITT -- "CCITT" PSEUOO-RANDOM TEST PATTERN 

OPERATOR SELECTED -• OPERATOR CHOSEN PATTERN OF LESS THAN 

72 CHARACTERS USING 0-9, A-Z AND SPACES. (NOT USED IN 

PATTERN TEST) 

SIZE THE SIZE OF THE MESSAGE dUVFER MAY BE BETWEEN 46 AND 51? 

BYTES. 

COPIES THE NUMBER OF COPIES OF EACH MESSAGE SENT TO EACH NODE 

DURING A TEST MAY BE BETWEEN 1 AND 255, 

EXAMPLE CF CHANGING TYPE; 
NIE> (A) ? M/WERO 



E'XAMPLF OF CHANGING SIZE: 
NIE> (A) ? M/S-256 



EXAMPLE OF CHANGING BOTH TYPE AMD SIZE 
NIE> (A) ? M/s-512/T-ALFHA 



HUN TEST/PASS»NN CAUSES EXECUTION V THE. SPECIE ILD TEST FOR NN NUMBER U> 

PAS5rS. A DEFAULT VALUE OF 1 I S ASSUMED IF /PASS-NN IS 
NOT INCLUDED IN 1HE COMMAND LINE. A VALUE OF NN- 1 Will 
CAUSE THE TEST TO BE RUN INOEF INI f EL i . NODE ADDRESSES 
FOR THF TESTS ARF TAKEN FROM THE NODF TAB!.' AND ShPU D Bt 
ENTFRFD PRIOR TO RUNNING THE TEST USIKi T h« NODI CO^AND. 
IN THE CASE OF THE LOOP^AIR TEST, NODE PAIRS ARE REQUIRED 



CVN1AA0 DEQNA Nl EXERCISER DIAG MACRO M1200 22-MAR-84 13:12 



Jl 

PAGE a -8 



SEU 9 



DIRECT 



LOOPPAIR 



AND MUST Be SPECIFIED AS TARGET AND ASSIST NODES, THE 
CURRENTLY SELECTED VALUES FOR MESSAGE TYPE, SIZE AND 
COPIES AR£ USED BY EACH TEST. 

THERE ARE FOUR TEST TO CHOSE FROM; 

THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RtSPOHSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 

THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS CONTAINED IN THE NODE TARLE , THREE TYPE OF ASSISTED 

MESSAGES ARE SENT: 

1) RECEIVE ASSIST -- HOST •> TARGET -> ASSIST -> HOST 

2) TRANSMIT ASSIST ■- HOST -> ASSIST -> TARGET -> HOST 

3) FULL ASSIST -• HOST -> ASSIST - > TARGET -> ASSIST -> HOST 

IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 



**+ IMPORTANT!! *** ---> THE LOOPAIR TEST EXPECTS THAT EACH 

TARGET NODE HAVE A CORRESPONDING ASSIST NODE, AND THAT THE 
ORDER OF THE NODES IN TH£ NODE TABLE BE THE FOLLOWING: 



FIRST NODE IN TABLE 

2ND NODE IN TABLE 

3RD NODE IN TABLE 

4Th NOOE IN TABLE 



TARGET 
ASSIST 
TARGET 
ASSIST 
ETC. 



IF THERE ARE TWO ASSIS1 NODES IN A ROW, THE PROGRAM Will 
CHANGE TH6 FIRST NODE TO A TARGET NODE, AND A SOFT ERROR 
WILL BE INDICATED. 

BE VERv CAREFUL WHEN DELETING NODES. IT IS BEST TO DELETE 
NODES IN PAIRS ( ONE TARGET NODE AND ONE ASSIST NODE). 



PATTERN 



ALL 



THE PATTERN TEST SENOS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NOOE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES, ZEROS, lALT, OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS 

THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THt 
NETWORK ANO IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODfc IN 1 HE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARrtAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FUU. ASSISTED LOOPBACK MfcSSrtljt 
TO EACH PAIR IN THE ARRAY. A SAMPl F ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BF.LQU. 



1 ? 

i 3 
I 4 

1-5 



<?-A 


3 A 


4 c . 


5-b 


2 A 


3 S 


4-b 


a-V 


,» % 


3 t 


4-7 




J -6 


3-7 







6-7 



k:i 
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1-7 

RtSP RUNS THE RESPONDF.R TEST, A SECTION OF CODE THAT PROVIDES LOOP SERVER 

FUNCTIONS SUCH AS FORWARDING MESSAGES, ANSWERING CONSOLE ID REQUESTS, AND 
TRANSMITTING A SYSTEM ID EVERY 8 TO 9 MINUTES. 

IMPORTANT 

THIS SECTION MUST BE RUN IF" THE DEQNA IS TO BE USED AS A LOOP 

ASSIST OR TARGET NODE ON THE ETHERNET. THE O^HER TESTS WILL 

SIMPLY IGNORE FORWARDING REQUESTS, AND WILL NOT XMIT CONSOLE 
IDS. 

THc ONLY WAY TO ESCAPE FROM A LARGE OR INFINITE Nl *1BER OF 
PASSES IS TO TYPE CONTROL C, BE CAREFUL!! IF YOU : YPE "START" 
TO DSR> AFTER THE CONTROL C YOU WILL DESTROY ALL S JMMARY 
STATISTICS AND COUNTERS. USE THE "RESTART" COMMAND TO DSR> TO 
GET BACK TO THE NIb> PROMPT AND PRESERVE THE COUNTERS. 

AAA A* A 444 A4**AAA*A*A4***AA4***4*4***A*4**4*At « a ♦♦♦♦♦ ♦♦♦♦♦♦ A*************.******** 

EXAMPLE OF RUNNING THE DIRECT TEST ONE PASS: 
NIE> (A) ? R D 

EXAMPLE OF RUNNING THE DIRECT TEST 5 PASSES; 
NIE> (A) ? R D/P*S 



EXAMPLE OF RUNNING THE DIRECT TEST INFINITE PASSES; 
N1E> (A) ? R D/P»0 

EXAMPLE OF RUNNING LOOP -PAIR TEST; 
NIE> (A) ? R I 

EXAMPLE OF RUNNING RESPONDf-R TESI; 
NIE> IA) V R « 



LI 
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IDENTIFY ADR A REQUEST ID MESSAGE IS SENT TO THE NODE SPECIFIED BY An r . 

AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED, 

EXAMPLE: 

NIE> (A) ? ID AA-OO-04-FK-Fr-FO 



BUILD 



EXAMPLE: 

NIE> (A) ? BU 

CLEAR NODE/ADR 

CLEAR NODE /ALL 
CLEAR MESSAGE 



THE BUILD COMMAND CAUSES THE EXERCISERS TO LISTEN TOR 
SYSTEM ID MESSAGES WHICH ARE BROADCAST BY ALL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL NODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NODE TABLE. THF BUILD COMMAND STOPS 
WHEN NO NEW NODES HAVE BEEN ADDED FOR 10 MINUTES OR WHEN 
40 MINUTES HAVE ELAPSED. THE AVERAGE TIME FOR THIS 
COMMANC SHOULD BE 15-25 MINUTES. 

IT IS POSSIBLE TO MISS A TRANSMISSION WITHIN THE TEN MINUTE 
PERIOD. IF NO NODES SHOW UP AFTER A BUILD. TRY WAITING 4 
OR 5 MINUTES AND DO THE BUILD AGAIN. 

A FEATURE OF THIS PROGRAM IS THE ABILITY TO *C OUT OF THE 
BUILD ROUTINE AT ANY TIME WITHOUT HAVING TO WAIT FOR THF 
BUILDING PROCESS TO COMPUTE, THIS IS NICE WHEN IQU WANT 
TO TEST A FEW NODES AND DON'T CARE ABOUT "ALL" THE NODES ON 
THE NET. 



THE CLEAR NODE COMMAND CLEARS THE SPECIFIED NODE » ROM 

THE NODE TABLE. THE NODE CAN Be SPfcCIUfcD R* F1THER 

ITS 12 DIGIT PHYSICAL ADDRESS OR ITS LOGICAL NAME 
CAS ASSIGNED BY NODE TABLE"). 

THIS COMMAND CLEARS THE NODt TABU. 

TH:;S COMMAND SETS THE MESSAGE PARAMETERS BACK TO THE 

DEFAULT VALUES. 



CLEAR SUMMARY THIS CJMMAND CLEARS THE SUMMARY TABLE, 

EXAMPLE OF CLEARING A NOOE USING THE Nl ADDRESS: 
NIE> (A) V CL N/AA-00-04 FF FF -FO 



EXAMPLE OF CLEARING A NODf- USING IT'S LOGICAL NAME: 



M' 1 
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NIE> (A) ? CI. N/N3 

******** ******** ***** *********** v****+*++**A* ********* ********************* 

MOTE: 

TO FIND WHICH LOGXCAL NAME IS ASSOCIATED WITH AN ADDRESS, EXECUTE 
THE "SHOW NODE" COMMAND. 

ALSO, A CLEARED NODE CAN BE RESTORED Tu THE NODE TABLE BY EXECUTING 

THE "UNSAVE" COMMAND. 

**************************************** ********************************** 

EXAMPLE UF CLEARING ALL NODES: 
NIE> (A) ? CL N/ALL 



SUMMARY THE .. JMMARY COMMAND PRINTS OUT THE SUMMARi TABLE. 

THE ME MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES i 

RECEIVES NOT COMPLETE RECEIVES COMPLETE 
LENGTH ERRORS DATA COMPAPE ERRORS 

BYTES COMPARED BYTES TRANSFERRED 

NOTE: 

PYTES COMPARED REPRESENTS DATA MINUS THE LOOP-SERVER PROTOCOL OVERHEAD, AND 

THUS UILL BE LESS THAN BYTES TRANSFERRED WHICH REPRESENTS DAI A PLUS LOOP • 
SERVER PROTOCOL OVERHEAD 

EXAMPLE; 

NIE> (A) ? SUMM 



SAVE THE SAVE COMMAND SAVES THE CONTENTS OF THE NODE IABlE. 

FOR THE VAX VERSION, THE TABLE IS SAVED IN A F ILt CALLED 
Nit. TBI., THE PDP-11 V^RblQN CANNOT WRIU TO EXTERNAL 
I.EDIA,. SO THE CONTENTS ARE SAVED IWTERNALLi . 

EXAMPLE,; 

NX£> ' • '> $AV 



Nl 
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UNSAVE THE LINSAVC COMMAND RE. STORES THE. CONTENTS l» TMfc NODE TABLE 

USED, Ihh POP U VERSION USES THE CONTENTS OF ITS 
INTERNALLY SAVED TABLE. 

EXAMPLE: 

NIE> (A) ? LHSiS 



EXIT RETURNS CONTROL to THE DIAGNOSTIC SUPERVISOR 

(EITHER VOS OR DRS^. 

♦♦''♦♦♦♦♦♦♦♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦•♦••••♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦********A***A**.4*4i*A***±** 

NOTE r 

THE HSR> RESTART AND CONTINUE COMMAND CANNOT BE USED IP THE £ >; I * COMMAND hA" 
BEEN USED TC LEAVE NIE> 

***^******+****+*****+**#*****»**************#**». *♦**♦*♦***+♦♦♦♦♦*+*♦♦♦»♦♦♦♦*♦♦ 

EXAMPLE : 

NIE> (A) ? EXIT 



NOTES: 1) AG* .S THE PHiSICAL ADDRESS 0- A NODE ON T m* NI. 

5") PASS COUNT IS A DECIMAL N«JM6t R BETWEEN 1 AND bSb?4 
A DEFAULT VALUE OF 1 IS ASSUMED. SPtCIf'iINC I 
CAUSES THfc TEST TO BE RUN INDEFINITELY. 

2.5.1 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED TMt. HARDWARE UUtSTIONs OR At U R A Rt ; ' ,\U* 

OR CONTINUE COMMAND, THE. RUNUME StRvICFS UlU ASK ► JR Jf TuARf 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECI^I" 

OPERATION MCDES. YOU Will BE PROMPTED B» CHANGf * t ■ .- 

If YOU WISH TO CHANGE ANT PARAMETERS, ANSWER 8' T * P ING 

"Y '. THE c OFTWARE QUESTIONS AND THE DEFAULT VALUES AR*' DESCRIBED 

IN THE NEXT PARAGRAPH(S). 

2.6 QUICK START-UP PROCEDURE UXD^O 
TO START-UP THIS PROGRAM; 
I. BOOT XXQP* 



bi: 
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2. GIVE THE DATE ANC ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FIl E FOR THIS PROGRAM 

4. TlPE 'START" 

5. ANSWER THF "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN >0U FOLLOW THIS PROCEDURE YOU UILL BE USING ONLY THE 
DEFAULTS FOR FLAGS ANO SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2,3 AND 2.5, 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC ANO EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED LNLESS THE "IER" FLAG IS SET (SECTION 2,3), 
THE GENERAL ERROR MESSAGE IS OF THE FORM- 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCiXXXXXX 
ERSOR MESSAGE 

, WHERE i NAME • DIAGNOSTIC NAME 

TYPE • ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 

NLMBER - ERROR NUMBER 

WIT N^WBEP - - N (N IS LAST UNIT IN PTABLE ) 

TST NUMBER - TEST AN© SUBTEST WHERE ERROR OCCURRED 

PCsXXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR H XBR M FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE, 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAtS 
PRINTED WLESS THE "IER". "IB«" OR "IXR" FLAGS ARE SET (SECTION 2,3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE ANO ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGE! MEANING 

?ILL CMD-BAD SYNTAX A COMMAND WITH AN ILLEGAL CHAR WAS 

TfPED RETYPE \Hh COMMAND. 1HI V'Al 10 
COMMANDS AND THEIR SYNTAX ARt SHOWN 
IN SECTION u\b 



C2 
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'INCOMPLETE A REQUIRED PART OF A COMMAND WAS LEFT 

OUT, 

?NUMBER TOO BIG THE VALUE Of" A NUMERIC STRING IN THE 

COMMAND LINE WAS LARGER THAN 65535 
OR 1/7777 OCTAL, C >16 BITS), 

>BAU RADIX A "S" OR "9" WAS TYPED W*:^N AN OCTAL 

STRING WAS EXPECTED, PROBABLY OCCURRED 
WHEN lYPING A "DUMP" COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 

EYMMPLfc OF A LUST PACKET ERROR DURING LOOPPAIR TESTING 

CVNIA HRD ERR 00028 ON 1*11 T 00 TST 001 SU8 000 PC:064442 

TIMEOUT OCCURRED - LCOP MESSAGE TYPE - RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-00-03-00 -00 -00 
FAILING ASSIST NODE ADDRESS: AA-00-03-00-00-02 

EXAMPLE OF A LOST PACKF T ERROR DURING PATTERN TESTING 

CVNIA HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:63730 

flMEOUT OCCURRED BEFORE LOOPBACK REPLY 
FAILING NODE ADDRESS: AA-00-03 -00-00-00 
DATA PATTERN: ONES 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE ENO OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THfc 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED, SECTION ? t a DESCRIBES SWITCHES. 

5.0 DEVICE INFORMATION TABLES 

THIS IS THE DEFAULT HARDWARE P- TABLE, THE VALUES AND SIZE ARt USED 
AS A "TEMPLATE" FOR CREATING ACTUAL P -TABLE ENTRIES AND THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HARDWARE QUESTIONS. 

THE NUMBERS IN BRACKETS (I.E. f6]) INDICATES THE OFFSET OF THE WORD 
INTO THE HARDWARE P-VABLE. THE OFFSETS MUST MATCH THE P-TABlE OfFSETS 
USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE 'GET PARAMETER 
CALLS ARE USED TO FILL THE P TABLE , 

.WORD 174440 j[0] CSR ADDRESS 

.WORD 300 |[2l INTERRUPT VECTOR 

.WORD 240 j 16} INTERRUPT PRIORITY (S) 

6.Q TEST SUMMARIES 
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6.1 DIRECT 

THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF* THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 

6.2 LOOPPAIR 

THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS CONTAINED IN THE NODE TABLE, THREE TYPE OF ASSISTED 

MESSAGES ARE SENT: 

n RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 

2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 

3) FULL ASSIST -- HOST -> ASSIST -> TARGET -> ASSIST -* HOST 

IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 

6.3 PATTERN 

THE PATTERN TEST SENOS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES, ZEROS, 1ALT. OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 

6.4 ALL 

THE ALL NOOE TEST PERFORMS THE MOST EXTENSIVE CHFCK QF THE 
NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN JHE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENOS A FILL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR TN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 

b-7 



1-? 


2-3 


3 4 


4 f> 


S-6 


1-3 


2-4 


5-5 


4 6 


5 7 


1 -4 


2 5 


3-6 


4-7 




IS 


2-6 


3-7 






1-6 


2-7 








i-7 











be- 
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l V7 
94 7 
^48 
94 O 
950 
951 

953 

^54 

955 
95 

^5: 

958 

V45U 

9bO 
961 

^6 t ^ 
9n5 
964 
965 
966 
96" 
968 
969 
970 
9/1 
9.V 
9 73 
9*4 
9f5 
9/6 
9 V 
978 
970 

980 
981 
98 v ? 

98 3 
984 
985 
98^ 
98/ 
988 
989 
990 
991 
99 t > 

99 ^ 

995 
9^6 
99 / 

9*8 

1000 

1001 



000000 



.SOTTL PROGRAM HEADER 
.ENABl ABS.AMA 



c?000 



SOTTL PROGRAM MACROS 



1 IISTACK MACRO 



i THE IIS TACK MACRO FACILITATES INITIALIZING THE R6 (HARDWARE) STACK 

{AND THE R5 (PARAMETER) STACK. R5 IS SET TO THE STACK LOW LIMIT 
l(STAKLO) AND THE PARAMETER STACK GROW? UPWARD. R6 IS SET TO THE 

1 STACK HIGH LIMIT CSTAKHI) AND THE HARDWARE STACK GROWS DOWNWARD, 

I IF THERE IS A STACK OVER-RUN, IT WILL BE DETECTED BY THE PREG14 
{ROUTINE, 

I 



.MACRO 

.LIST 

MOV 

MOV 

.NLIST 

.ENDM 



IISTACK STAKLO.STAKHI 



STAKL0.R5 
STAKHI.SP 

IISTACK 



INITIALIZE THE PARAMETER STACK POINTER. 
{INITIALIZE THE HARDWARE STACK POINTER. 



{PUSH MACRO 



{THE "PUSH" MACRO FACILITATES PUSHING I TFMS ON J*l HARDWARE STACK 
{UP TO SEVEN ITEMS MAI E3E PLACED ON THE STACK WITH ONE MACRO, 



.MACRO PUSH 

.IF NB G 
.LIST 

, NLIST 
.ENDC 

, H NB F 

.LIST 

.Nl 1ST 
.ENDC 

. u m e 

.LIST 

,nl i'j r 

.ENDC 

. U NB 
.LIST 



A.B.C.D.E,* ,G 



MOV 



G, CSP) 



MOV 



► . ASP) 



MOV 



k, CSP) 
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1003 
1004 
IOCS 
1006 
1007 
1008 
100O 
1010 
1011 

1012 

101? 
1014 
101?. 
101t> 

101 * 
1018 
101* 
1 020 
10 J 1 
10 J? 
1023 
1024 
1025. 
1026 

102 7 
1028 
102<* 
1030 
1071 
1032 
1053 
1034 
1035 
1056 

105; 

1038 
1039 
1040 
1041 
104 2 
104 4 
1044 
104-> 
104*. 
104 7 
1048 
1049 
3 0S0 
1QM 
10 V 
10S5 
10!>4 
KSS 
10 V. 
10S.' 
IO'.h 



.NLIST 

.ENDC 

, IF NB C 
.LIST 

.NLIST 
,ENUC 

. IF MB D 

.LIST 

.NLIST 
.ENDC 

.IF N6 A 
.LIST 

.NLIST 

.ENDC 

.ENDM PUSH 
{POP MACRO 



i * * * 



MOV 



D , ■ ( SP ) 



MOV 



C, i'iP) 



MOV 



B, CSP; 



MOV 



A, CSP) 



tTHE "POP" MACRO FACILITATES RETRIEVING ITEMS FROM i HE HARDWARE STACK 
{UP TO SEVEN ITEMS MAY BE RETRIEVED WJTM ONE MACRO, 



.MACRO POP 

, IF KB A 
.LIST 

.NLIST 
.ENDC 

. U NB H 
,L 1ST 

.Nl 1ST 
.LNDC 

, U NB C 

,1 1ST 

.Nl 1ST 
.ENDC 

. U NB 
,1 1ST 

,Nl 1ST 

*LNDC 



A,B t C,D,E,F t ti 



MOV 



(SP).,A 



MOV 



CSP)»,B 



MOV 



ISPU »C 



MUV 



\iil>>.,tt 
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program macros 
u^o 

lObl 

1062 
10b3 

1064 
1065 
1066 

10b; 

1068 
106^ 
1070 

ion 

107? 
1075 
1074 

10 :s 
1076 
1077 
1078 
1079 
1080 
1061 
1082 
108* 
1084 
1085 
108b 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
110? 
1103 
1104 
1105 
110b 
110/ 
1108 
1109 
1110 
1111 
1 1 1 2 
1 1 1 5 
1114 
1115 

nib 
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, IF NO 
.1 1ST 


F 




.NL.tST 

.ENDC 






.IF NB 
.LIST 


F 




.NLIST 

.ENDC 






.IF NB 
.LIST 


G 




.NLIST 

.ENDC 






.ENDM 


POP 




j CALL MACRO 





SEQ 19 



MOV 



(SP)»,F. 



MOV 



CSP)»,F 



MOV 



CSP)*,G 



I * * ♦ 

;1HE CALL MACRO FACILITATES CALLING A SUBROUTINE VIA THE REGISTER 

j PRESERVE ROUTINE (PREG14), IT PLACES THE PARAMETERS 10 BE PASSFD ON 

l THE PARAMETER STACK. UP TO 7 PARAMETERS MAY FJE PASStD USING THIS 

; MACRO. 



{ 



.MACRO CALL 

.IF NB G 
.LIST 

.Nl 1ST 

.ENDC 

.IF NB F 

.LIST 

.NLIST 
.ENDC 

. IF NB E 

.i rsT 

.NLIST 

,ENDC 

. It NB 

.LIST 

.Nl 1ST 
.ENDC 



S A.B.C.D.t.F.G 



MOV 



G.(R5)» 



MOV 



K,IR5)» 



MOV 



E t (RfO* 



MOV 



D,kR';»>. 



»?° 



AM 



I I ( . 
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st-Q ao 



:i8 
11* 

I JO 

101 
100 
103 
104 
US 
106 
10'.' 
108 
109 
150 
131 
130 
133 
134 
135 
136 
13,' 
138 
139 
140 
141 
142 
143 
144 
14b 
1*6 
14/ 
148 
149 
150 
151 
150 
153 
154 
155 
156 

lb; 

158 
159 
160 
161 
160 
163 
164 
165 
166 
16/ 
16M 
169 
1 /O 
l.'i 
I/O 
,1*3 



.IF NB C 
.LIST 

.NLIST 
.ENDC 

.IF NB B 
.LIST 

.NLIST 
.ENDC 

.IK NB A 
.LIST 

.NLIST 
.ENDC 

J. 1ST 



MOV 



C,(R3)» 



MOV 



FJ.(Rb)* 



.NLIST 
.ENDM 



MOV 



JSR 
.WORD 



A,tR5)> 



R4.PREG14 
S -ANCHOR 



CALL 



{RETURN MACRO 



i • • ♦ 



jTHE RETURN MACRO FACILITATES PASSING PARAMETERS RACK TO A CALLING 
j ROUTINE. UP TO 7 PARAMETERS MAY BE PASbED BACK ON THE PARAMETER 
{STACK. 



.MACRO RETURN A.B.C ,D,E ,K t G 

. IF NB G 
.LIST 



.NLIST 
. ENOC 

.IF NB V 
.l.IST 

.NLIST 

.ENOC 

. [F NB E 
.LIST 

.NL t^T 

.ENDC 

. U NB 
.1 1ST 

MUSI 



MOV 



G.1R5)* 



MOV 



r.cRS^ 



MCW 



E.CR5W 



MOV 



D,iR5>» 
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ika 

11 75 
1 1 76 
1177 
1178 
11 /^ 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118 7 
1188 
1189 

i : <»o 

1191 
119c 1 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1500 
1201 
120c 1 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
121^ 
1 '20 
1221 
1222 
12? 3 
1224 
1225 
1226 
1227 
1228 

i;v» 

1230 
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.ENDC 

.IK NB C 
.LIST 

.NLIST 

.ENDC 

.IF" NB B 
.LIST 

.NLIST 
.ENDC 

.IF NB A 
.LIST 

.NLIST 

.ENDC 

.LIST 

.NLIST 

.ENOM RETURN 

jPtPUSH MACRO 



SEQ 21 



MOV 



C.CR5)* 



MOV 



B,CR5^* 



MOV 



RT5 



A,(R5)» 



PC 



i * 



MOV 



G,(R5)* 



{THE PiPUSH MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 
{STACK. UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO. 



.MACRO P$PUSH A.B.C.D.fc.F'.G 

.If NP G 

.LIST 

.NLIST 
.ENDC 

. IF NB V 
.LIST 

.NLIST 
.ENDC 

. Vt NB E 
.LIST 

.Nl 1ST 

.ENDC 

. U NB D 

.LIST 

.nl isr 

.ENDC 



MOV 



F,IR5)» 



MUV 



t- ,(R5)* 



MOV 



D,iR5>. 
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1231 
1232 
1233 

1334 
1235 

123b 

1237 

1230 

1239 
1240 
1241 

1242 
1243 
1244 
1245 
1246 

124; 

1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
12^9 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
12// 
12/8 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
128t, 
128 7 
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.IF NB 
.LIST 


C 




.NLIST 
.ENDC 






.IF NB 
.LIST 


3 




.NLIST 
.ENDC 






.IF NB 
.LIST 


A 




.NLIST 

.ENDC 







SEQ 22 



MOV 



C.(Rb')* 



MOV 



B.(R5)» 



MOV 



A,(R5)» 



.ENDM P$PUSH 
} P$POP MACRO 



{THE P$POP MACRO FACILITATES RETRIEVING PARAMETERS FROM THE PARAMETER 
; STACK, UP TO 7 PARAMETERS MAY BE RETRIEVED. 

jTHE ROUTINE THAT RECEIVES THE PARAMETERS HAS THE RESPONSIBILITY OF 
{CLEANING UP THE PARAMETER STACK. THIS MACRO IS AN AID TO MAKING 
j A LOCAL COPY OF PASSED PARAMETERS AND CLEANING UP THE PARAMETER STACK 
J 

.MACRO P5P0P A.B.CD.E.F.G 



.IF NB 
.LIST 


A 


.NLIST 

.ENDC 




.IF NB 
.LIST 


B 


.Nl 1ST 

.FNDC 




. IF NB 
.LIST 


C 


.NLIST 

.ENOC 




.IF NB 
.LIST 


D 



MOV 



-CR5),A 



MOV 



-IR5),B 



MOV 



-(R5\C 



MOV 



IRS\D 
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SEQ 23 



1088 
1089 

1090 

1091 
1090 

1094 

109S 

i09 t , 
109? 

1098 
1099 
1 300 
1301 
1300 
1303 
1304 
130S 
130b 
130^ 
1308 
1309 
1310 
1311 
1316 
1317 
1318 
1319 
1300 
1301 
1300 
1303 
1 304 
HOS 
130*"i 
130 7 
1V8 
13; '9 
1330 
1331 
1330 
1333 
1334 
133 c > 
1336 
1337 
13:58 
1339 
134 
1341 
1340 
1 34 3 
1344 
3 34 S 
1 '546 
1 34 : 
1348 



MOV 



-(R5),E 



MOV 



-(R5).F 



.NLIST 

.ENDC 

.IF N8 E 
.LIST 

.NLIST 
.ENDC 

.IF NB r 
.LIST 

.NLIST 

.ENDC 

.IF NB G 
.LIST 

.NLIS1 
.ENDC 

.ENDM P$POP 



.MACRO CLI CHAR, HITVAL.MISADR. CMPSTR 

NODCL. CHAR,HITVAL,\X$,MISADR, CMPSTR t;«04ft PARSE TREE #WM 
. ENDM 



MOV 



-CR5),G 



. M ACRO 
NOD'XY: 

.IE NB 

.ENOC 
.IF" NB 



.NLIS 
1$: 
.LIST 
.ENOC 

.NLIST 
X**XJ»1 
.1 1ST 
.ENDM 
.MACRO 



,ENUM 
, MACRO 



NODCL CHAR t HI TVAL.XY.MISADR. CMPSTR 

.BYTE CHAR.HITVAL {SPECIAL CHAR. CODE OR COMPARE CHAR, 

AND ACTION CHIT) VALUE FOR ACTION 

ROUTINES. 



MISADR 
.WORD 

CMPSTR 

.UORD 

.ASC1Z CMPSTR 

.EVEN 



MISADR NOD'XY 



1 $ NOD' XY 



jDISPLACEMENT TO "MISS" NODE (BYTES) 



{DISPLACEMENT TO GET TO NEXT NODE 
} (ONLY IF ITS A "CLISTR" NODE) 



NEXT A,B 
.1 IJT 

.WORD A'H 
.NLIST 

RNGFSM A.B.C 



5 SEGMENT BUFFER ADDRESS 



j MACRO TO FORM 1MANSMIT AND RECElvt 

} DESCRIPTOR RINGS. 



L? 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
PROGRAM MACROS 



1549 






i3so 






1351 






13V 






135? 






1354 






1355 






1356 






135/ 






1358 






1359 






1360 






1361 






1 362 






1363 






1364 






1365 






1366 


002000 




136? 






1384 


002000 

002000 






002000 


103 




002001 


1?6 




002C02 


116 




002003 


111 




002004 


101 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


000000 




002014 






002014 


000000 




002016 






002016 


117114 




002020 






002020 


ooooco 




002022 






002022 


002 WO 




002024 






002024 


000000 




002026 






002026 


117312 




002030 






002030 


000000 




002032 






002032 


000000 




0020 34 






002034 


000001 




002036 






002036 


000000 




002040 






002040 


002164 



B"B*1 



2^-MAR-ft4 


13:12 


.LIST 




.WORD 





.WORD 


100000 


.NLIST 




NEXT 


A,\B 


.LIST 




.WORD 


c 


.WORD 





.WORD 





.NLIST 
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SEQ 24 



; FLAG WORD 

i SET VALID BIT (DSCR/HIGH ADDRESS WRD) 



BUFFER LOW ADDRESS WORD 



BUFFER SIZE 
STATUS UORD 1 
STATUS WORD 2 



.ENDM 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRPT 

HEADER CVNIA.A.O.O.I.PRIQV 



L5NAME 





.ASCII 


/c/ 




.ASCII 


/v/ 




.ASCII 


/N/ 




.ASCII 


/I/ 




.ASCII 


/A/ 




.BYTE 







.BYTE 







.BYTE 





L*REV:: 








.ASCII 


/A/ 


L$DEPn : 








.ASCII 


/o/ 


L$UNIT : 








.WORD 





LSTIML: 








.WORD 





L5HPCP: 








.WORD 


L SHARD 


t SSPCP: 








.WORD 





L.SHPTP: 








.WORD 


I $HW 


I SSPTP; 








.WORD 





I ll.ADP: 








.WORD 


l.SLAST 


l.SSTA: : 








.WORD 





I. SCO: : 








.WORD 





t.SDTiP: 








. WORD 


1 


t SAPT: : 








.WOK'' 





L.SUTP: : 








.WORD 


l.SLUSPATCH 



Mr: 
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SEQ 25 



138b 

1396 

139/ 

1398 
1399 
1400 



002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



000340 

000000 

000000 

003 
003 

000000 
000000 

000000 

002122 

102106 

000000 

000000 

000000 

000000 

000000 

002130 

104035 

000000 

102126 

103372 

103370 

102120 

000000 

000000 

000000 



002122 
002122 
002125 



NAMES OF DEVICES SUPPORTED BY ^RUGRAM 
OfcVTYP <DEQNA> 



L$PRIO 








' .WORD 


PRIO/ 


L$ENVI 








".WORD 





L$EXP1, 








* . WORD 





LSMREV 








'.BYTE 


CSREVISION 




.BYTE 


CREDIT 


L$EF : j 








.WORD 







.WORD 





L$SPC: 








.WORD 





LJDEVP 








' , WORD 


l.SDVTYP 


LSREPP 








' .WORD 


l$RPT 


L$EXP4 








' .WORD 





L$EXP5 








* .WORD 





LSAUT; 








.WORD 





l.JP'ir: 








.WORD 





L$LUN: 








.WORD 





L$DESP 


; 






. WORD 


L$DESC 


L5L0AD 


* 






EMT 


E$LOAD 


L $ETP: 








.WORD 





L$ICP: 








.WORD 


L$INIT 


L$CCP: 








.WORD 


LJCLEAN 


L$ACP: 








.WORD 


LJAUTO 


L$PRT; 








.WORD 


L5PR0T 


L$TEST 


; 






.WORD 





I $Dl Y: 








.WORD 





L$HIME 


* » 






.WORD 






104 
116 



105 
101 



121 
000 



L$DVTYP; : 



.ASC1Z .'DEQNA, 



N2 
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PROGRAM MACROS 



cist 



1401 










1407 










1408 










140^ 










1410 


002130 
002130 










002130 


103 


126 


116 


E'R/ 












00213? 


111 


104 


040 




0021 3* 


104 


10«S 


121 




002141 


lib 


101 


040 




002144 


lib 


111 


040 




00.' 14 ' 


10S 


130 


105 




002 l c ) 2 


122 


10? 


111 




002 IVj 


12 5 


10b 


122 




002160 


000 
















1 •* A' 
l*i.'. 










14. ' 










14 34 










143b 











.EVEN 



TEST DESCRIPTION 

DESCRIPT <CVN1U DEQNA NI EXERCISER> 



LSDESC: : 

.ASCIZ /CVNID DEQNA NI EXER 



.EVEN 

.EVEN 



FORMAT S1ATEMENTS USED IN PRINT CALLS 



b33 

CVMAAO DEQNA NT EXERCISER OIAG MACRO MU?00 ?2 MAR. fl4 13: K? PAGE 4 SEQ dl 

DISPATCH TABLE 

1444 .SBTTL DISPATCH TABLE 

1445 

144t> I ♦ ♦ 

1^47 , THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF fcACH TEST. 

1448 , IT IS USED B> THE SUPERVISOR TO DISPATCH TO EACH TEST, 

1449 *-- 

14*0 

1451 002 Lb^ DISPATCH 1 

002162 000001 .UORD 1 

002164 L^DISPATCH: , 

00cUt>4 103544 4 WQRP U 

145v." 



CVN1AA0 DEONA NI 
OEKAU T HARDWARE 



C3 



EXtRCISER 

P TABLE 



DIAG MACRO M1200 ?2-MAR-«4 13: 12 PAGE S 



SEQ 26 



1460 
14M 
1462 
1465 

1464 

1465. 
146b 
146.' 
1468 
1469 



1470 
1471 

14 V 

147? 
14 74 

1484 
1435 



002166 
002166 
002170 
002170 

002170 

002172 
002174 



0021. '6 
002176 



SBTTL DEFAULT HARDWARE P-TAJLE 



THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE Of THE HARDWARE P TABLES, 
AND IS USED AS A "TEMPLATE 1 - FOR BUILDING THE P-TABLES, 



000003 



174440 
000300 
000240 



BGNHW DFPTBL 



l.iHW: : 
DFPTBL: ; 



.WORD L 10000 -LJHW/2 



.UORD 
.WORD 
.WORD 



ENDHW 



W4440 

300 

PRI 



i CSR 
j VECTOR 
i PRIORITt 



L 10000 s 



D 
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SEU 29 



14ft/ 

1488 

14 89 
1490 
14^1 
1492 
14^3 
1494 
1495 
1496 



14*/ 
1505 
1506 

150'.' 
1508 
1509 
1519 
1520 
1521 
1522 
152? 
1524 
1525 
1540 
1541 



0021/6 
0021/6 
002200 
002200 



002200 
002200 



002200 



000000 



100000 
040000 
020000 
010000 
004000 
002000 
OO1000 
000400 
000200 
O00100 
00004C 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
00020C 
000100 
000 340 
OO0C2O 
O0C01O 

000004 



.SBTTL SOFTWARE P-TABLE 

; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

j PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 

i SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 

j AT RUN TIME. 



BGNSW SFPTBL 



ENDSW 



SBTTL GLOBAL EQUATES SECTION 



1 ♦♦ 

; THE GLOBAL. E3UATE5 SECTION CONTAINS 

; ARE USED IN MORE THAN ONE TEST, 



EQUALS 



L*SW: : 
SFPTBL 



L 10001 



WORD Lt0001-L$SW/2 



PROGRAM EQUATES THAT 



I BIT 


DIFINITIONS 


BIT15- 


• 100000 


BIT14- 


• 40000 


BIV13- 


- 20000 


BIT12- 


- 10000 


niTii- 


• 4000 


BIT10- 


- 2000 


PTT09- 


■ 1000 


BIT08* 


» 400 


BIT07- 


- 200 


BIT06- 


• 100 


BIT05- 


• 40 


BIT04- 


- 20 


BIT05- 


- 10 


BIT02- 


• 4 


BITOt- 


• 2 


BITOO- 


• 1 


BIT9-- 


BIT09 


H I T 8 » - 


BIT08 


BIT/-- 


BITO/ 


BTT6-- 


BITOO 


BIT5-- 


BIT OS 


BIT4" 


HIT04 


H J M - - 


HITOS 


B1I2-- 


BIT 02 



CVNIA'AQ DIQNA NI EXtRCISER I) I AG MACRO M1200 
GLOBAL EQUATES SECTION 
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5EQ 30 



000002 
000001 



000040 
000037 
000036 
000055 
000034 



Bin- 
niTo 



BITOl 
BITOO 



EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START-- 
EF, RESTART-. 
EF . CONTINUE - 
EF, NEWT- 
EK, PWR*> 



3? 
31 
30 
29 
26 



{ START COMMAND WAS ISSUED 
{ RESTART COMMAND WAS ISSUED 
j CONTINUE COMMAND WAS ISSUED 
} A NEW PASS HAS BEEN STARTED 
i A POWER -FAIL/POWER -UP OCCURRED 



i 



PRIORITY LEVEL DEFINITIONS 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 

ooaooo 

004000 
010000 
020000 
040000 
100000 



PRI07-- 
PRI06-- 
PRIC5-- 
PRI04-- 
PRI03-- 
PRI02-- 
PRI01-* 
PRIOO-- 



340 

300 

240 

200 

140 

100 

40 





OPERATOR FLAG BITS 



EVL»- 
LOT-- 
ADR" 
1DU-- 
ISR-- 
UAM-- 
BOE-- 
PNT-- 
PRI-- 
IXE-- 
IBE-- 
IER-- 
LOE-- 
HUE*- 



4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

10Q0QO 



F3 
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5EQ 51 



154 5 

1544 
1545 
1546 
154? 
1543 
1549 
1550 
1551 

155 J 
155? 
1554 
1555 
1556 
1 >57 
1556 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
15bb 
156.' 
1568 
1569 
15/0 
15/1 
1572 
15/3 
15 74 
15 75 
15 76 
1577 
1578 
15 79 
1580 
1581 
158? 
1583 
1584 
1585 
1586 
1587 
1588 
158') 
1590 
1591 
159? 
15'* 5 
1594 
1595 
1596 
159/ 
1598 



000010 
001000 
010000 



000000 
000010 
000012 



100000 
000004 



000015 
000012 



000000 
000001 
000002 
000004 
000010 
000020 



000100 
000111 
0016UO 



000000 
000001 
000002 
000003 
000004 
000005 
OOuOOC 
00000 7 
000010 
00001 1 
000012 



oocooo 
oooooi 



}CSR DEFINITIONS 
BD -• BIT03 
EL -- BIT09 
XC -- BIT12 

J 

{DESCRIPTOR FIELDS 



FLAGUORD-- 





STAT3 


8. 


STAT4 


10. 



{BOOT/DIAGNOSTIC ROM 

lELOOP 

j TRANSCEIVER 



jf I AG WORD 
;5IATUS l/ORD 1 
{STATUS WORD 2 



{DESCRIPTOR BITS 
V -» BIT15 
LlTVECTOR-" 4 
\ TERMINAL CONTROL CHARACTERS 



{VALID PIT 

{OFFSET IN 4l< ROM FOR VECTOR TO CITIZENSHIP TEST 



CR 
LF 



15 
12 



\>. {EQUATES FOR FLAG WORD ; I n I 

CTARGT--0 

CASIST--1 

CSHCTR--2 

CCLNAD--4 

CCLNAL'-8. 

CEXIT--16. 



jARG TYPE FOR 'SHOW COUNTERS' CMD 
tARG TrPE FOR 'CLEAR NODE/ADR CMO 
jARG TYPF FOR 'CLEAR NODE/ALL' CMD 



{{{CLOCK ENABLE VALUES TO BE LOADED IN Cl.K'S CSR{ 



LCLKEN 
PCLKEN- 

PCLKCT^ 



100 
111 
1600 



j L CLOCK 
j P -CLOCK 

j P CLOCK 



CSR VALUE 

CSR VALUE 
COUNT SET 



TO ENABLE THE CLOCK 
TO ENABLE THE CLOCK 
REGISTER FOR COUNTER 



SPECIAL CLI CODES FOR CHAR" ARGUMENT IN CLI CALLS 
(COMMAND LINE INTERPRETER DEFINITIONS) 



CLIERR 

CLIEXI 

CLIBR 

CLIBIF 

CI ISPA 

CLINUM 

CLI ALP 

CLIALN 

CLIOCT 

CL.IDEC 

CL.ISTR 




I 
2 
3 
4 
5 

6 

■■? 

8. 
9. 

10. 



{DEF5 FOR COMMAND LINE INTERPRETATION ACT TUN VALUES 



NULl -0 
HELP-1 



CVNIAAO OF UNA 1 
GLOBAL EQUATES 


NI tiXFRC 
SECTION 


1600 


000002 


1601 


000003 


1602 


000004 


1605 


000005 


1604 


000006 


1605 


000007 


1606 


000010 


1607 


000011 


1608 


000012 


160Q 


000015 


1610 


000014 


1611 


000015 


161? 


000016 


1615 


00001? 


1614 


000020 


lt>15 


000021 


1616 


000022 


161/ 


000023 


1616 


000024 


1619 


000025 


1620 


000026 


1621 


010027 


162? 


000030 


16?' 


OU0D31 


16.4 


000032 


1625 


000033 


1626 


OOC034 


1627 


00CO35 


1628 


000036 


1629 


000037 


1630 


000040 


1631 


00004 1 


165c 1 


000042 


1633 


000043 


1634 


000044 


1655 


000045 


1636 


000046 


163/ 




1638 




1639 




1640 


000000 


1041 


OOOOOl 


1642 


OOOOO? 


1643 


000003 


1644 


000004 


1645 


000005 


1646 


00QQQ6 


1647 




1648 




1649 
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NODE -2 

BUILD -3 

CRUN-4 

CPATRN-5 

C5AVE-6 

SUMMRY-7 

IDENT-10 

EXIT-11 

NOTNUT-12 

CEXADR-13 

CSAVR4-14 

CNODE-lb 

CALPHA-16 

CONES-17 

CZER0S-20 

C1ALT-21 

C0ALT-2? 

CCCITT-23 

COPRSL-24 

CTYPE-25 

CSIZE-26 

CCPYS-27 

CNOADR-30 

CNOOAL-31 

CRNALL-32 

CLUPPR-33 

CSHMSG*34 

CCLMSG-35 

CCNTR-36 

CNOLOG-37 

CFUNCT-40 

CUNSAV-41 

CCLSUM-42 

CDIR-43 

COEFLT-44 

CUNSVr-45 

RSPOND-46 



G3 

PAGE 7-1 



SEQ 32 



MESSAGE TYPE VALUES 

ALPHA* -0 

0NES--1 

7ER0S--2 

0NEALT»»3 

ZR0ALT--4 

CCITT--5 

0PRSEL-=b 

GLOBAL EQUATES FUR THE QEQNA DRIVER 



-'3 
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SEQ 33 



1651 




1652 




1653 




1654 




lb55 




1656 




1657 




1658 


000000 


165^ 


000001 


1660 


000001 


1661 


000002 


166 J 


000002 


1663 


000004 


1664 


000003 


1665 


000010 


1666 


000004 


166 7 


000020 


1668 


000005 


1669 


000040 


1670 


000006 


1671 


000100 


167? 


000017 


1673 


100000 


1674 


OOOOIO 


1675 


000400 


1676 


000011 


167/ 


001000 


1678 


000012 


1679 


002000 


1680 


000015 


1681 


003000 


1682 


000007 


1683 


000200 


1684 




1685 




1686 




1687 




1688 


000006 


1689 


OOOIOO 


1690 


00000 7 


1691 


000200 


169? 


000014 


1693 


010000 


1694 


000015 


1695 


020000 


1646 


000016 


169/ 


040000 


1698 


00001 / 


1699 


100000 


1/00 




1/01 




1/02 




1703 




1704 


000004 


1 /05 


OOU004 


1 ?Otj 


00*0 10 


1707 


00u400 



,SBTTL BIT DEFINITIONS 



I ♦ 

{ THIS SECTION CONTAINS BIT DEFINTIONS FOR THE QNA CSRS AND BUFFER 

{ DESCRIPTORS. ALL UNDEFINED CSR OITS ARE RESERVED AND/OR UNUSED. 

; ALL $V DEFINITIONS REPRESENT BIT NUMBERS IN THE CSR, ALL $M 

j DEFINITIONS ARE A MASK OF THAT CSR BIT 

RECEIVER ENABLE BIT 

SOFTWARE RESET BIT 

NON EXISTENT MEMORY BIT 

BOOT/DIAGNOSTIC ROM LOAD 

XMIT LIST INVALID BIT 

RECEIVE LIST INVALID BIT 

ENABLE INTERRUPT ON BITS 2, 7, OR 15 

RECEIVE INURKUPT REQUEST 

INTERNAL LOOPBACK BIT 

EXTERNAL LOOPBACK BIT 

SANITY TIMER EK \3LE 8IT 

CARRIER ^ENSE BIT 

XMIT INTERRUPT REQUEST 

i THE FOLLOWING DEFINTIONS ARE FOR THE DESCRIPTOR BITS WHICH ARE A PART 

I Of THE BUFFER DESCRIPTOR LIST ENTRIES 

} 

j XMIT BUFFER BEGINS ON HIGH BYTE 

l XMIT BUFFER BEGINS ON LOW BYTE 

i PACKET IS A SETUP PACKET 

j END OF MESSAGE 

j ADRS IS ANOTHER LIST ADRS, NOT DATA 

j VALID LIST ENTRY 

j THE FOllOWING DEFINITIONS ARE FOR ME FIRST STATUS WORD >ROM THE QNA 
; FOUND IN THE BUFFER DESCRIPTOR LIST ENTRIES WHEN A XMIT COMPLETES 
J 

i XMH COLLISION COUNTER BIT ZERO 

5 SI7F OF THE COLLISION COUNTER f IELD 

j HEARTBEAT COLLISION CHECK FAILURE 



VRCVEN 


- 00 


MRCVEN 


• 1 


VRESET 


• 01 


MRESET 


- 2 


VNXM 


* 02 


MNXM 


- 4 


VBOOT 


- 03 


M800T 


■ 10 


VINVXM 


» 04 


MINVXM 


- 20 


VINVRC 


- 05 


MINVRC 


- 40 


VINTEN 


- 06 


MINTEN 


- 100 


VRCVIN 


- 17 


MRCVIN 


- 100000 


VILOOP 


- 10 


MILOOP 


• 400 


VELOOP 


- 11 


MELOOP 


• 1000 


VSANITY 


- 12 


MSANITY 


■ 2000 


VCARRIER 


• 55 


MCARRIER 


■ 3000 


VXMTIN 


• 07 


MXMTIN 


- 200 



VHIBYT 


-■ 6 


MHIBYT 


"■ 100 


VL08YT 


-- 7 


MLOBYT 


»» 200 


VXSETP 


-« 14 


MXSETP 


•- 10000 


VEOM 


•* 15 


MEOM 


-> 20000 


VCHADR 


"' 16 


MCHADR 


■» 40000 


VVALID 


-• 17 


MVAl ID 


-» 100000 



VCOLl 


»* 4 


SCOLi 


- • 4 


V> All 


«■ 10 


MFA1L 


" 400 



CVNIAAQ DtQNA NI 
BIT DEFINITIONS 



1.6 

EXERCISER DIAG MACRO M1200 22-MAR-64 13:12 PAGE 8-1 



1/08 


000013 


1709 


004000 


1710 


000013 


1711 


002000 


1712 


000014 


1713 


010000 


1714 


000016 


1715 


040000 


1716 


000016 


171^ 


040000 


1/1B 


000015 


1714 


100000 


1720 




1721 




i /22 




1723 




1724 


000000 


17^5 


000016 


1726 




172 7 




1728 




1729 


000000 


1730 


000001 


1731 


000001 


1732 


000002 


1733 


000002 


1734 


000004 


1735 


000003 


1736 


000010 


1/37 


000010 


1738 


000003 


1739 


000013 


1740 


004000 


1741 


000014 


1742 


010000 


1/43 


000015 


1744 


020000 


1745 


000015 


1746 


020000 


1 74 7 


000016 


1748 


040000 


1749 


000016 


1750 


040000 


1751 


OOC017 


1752 


100000 


1753 




1754 




1755 




1756 


000000 


1757 


000010 


1758 




1759 




1 760 




1761 




1762 


OOOOlt 


1/6 3 


040000 


1764 


000016 



VABORT -» 13 

MABORT •- 4000 

VNOCAR •- 13 

MNOCAR -- 2000 

VL0S5 •- 14 

MLOSS ■• 10000 

VXUSED ■■ 16 

MXUSED -■ 40000 

VXERRS •■• 16 

MXERRS »- 40000 

VXLA5T »- 15 

MXLAST -» 100000 

l 

I FOLLOWING ARE THE DEFINITIONS FOR 

; ARE XMIT STATUS DEFINTIONS 



VTDR 
STDR 




16 



i 



J 



THE FOLLOWING DEFINITIONS ARE FOR 



5EQ 34 

XMISSION ABORTED, TOO MANY COLLISIONS 
NO CARRIER SEEN DURING XMISSION 
CARRIER LOST DURING TRANSMISSION 
XMIT BUFFER IS USED/IN USE 
XMIT ERROR OCCURRED 
j LAST XMIT BUFFER OF A MESSAGE 

STATUS WORD 2 WRITTEN BY THE QNA. THESE 

l TIME DOMAIN REFLECT. BIT 

j SIZE OF TIME DOMAIN REFLECT, FIELD 

STATUS WORD 1 ON A RECEIVE OPERATION 

l RECEIVER OVERFLOW OCCURRED 

l CRC ERROR, IGNORE IF DISCARD NOT SET 

I RECEIVE FRAMING ERROR OCCURRED 

j PACKET OF LESS THAN TEN BYTES RCVD 

l RECEIVED BYTE LENGTH BIT 8 

i SIZE OF RECEIVED BtTE LENGTH FIELD 

j RUNT PACKET RECEIVED, DISCARD MESSAGE 

! DISCARD THE CURRENT MESSAGE 

I PACKET RECEIVED WAS TOO LARGE 

^ RECEIVE BUFFER IS OR BEING USED 

j RECEIVE ERROR OCCURRED 

i LAST RECEIVE BUFFER OF A MESSAGE 



VOVF •• 

MOVF -- 1 

VCRC -« 1 

MCRC *■ 2 

VFRAM »- 2 

MFRAM -• 4 

VSHORT *- 3 

MSHORT -* 10 

VRBl -• 10 

SRBL -- 3 

VRUNT •» 13 

MRUNT »• 4000 

VDISC •- 14 

MDISC *• 10000 

VRLONG •- 15 

MRLONG -- 20000 

VRSETP -- 15 

MRSETP -- 20000 

VRUSED -- 16 

MRUSED -■ 40000 

VRERRS -- 16 

MRERRS »• 40000 

VRLAST »- 17 

MRLAST •■ 100000 

l 

j THE FOLLOWING DEFINITIONS ARE FOR STATUS WORD 2 AFTER A RECEIVE OPERATION 



t 

VRBL 

SRBL 



*. 

-- 10 



TMf FOLLOWING DtTINITIONS ARE FOR 
ENTRIES 



vrusED 

MFUSED 
VFERRS 



16 

40000 
16 



; RECEIVED BY IE LENGTH 

j SIZE OF RECEIVED BtTE LENGTH f- IELO 

THE KLAG WORD IN THE BUFFER DESCRIPTOR 



I THIS BUFFER IS OR BEING USED FLAG 
j ERROR OCCURRED FLAG 



CVN1AA0 DEUNA NI EXERCISER DIAG MACRO M1200 
BIT DEFINITIONS 
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SEU 35 



1/63 


040000 


1766 


000017 


1767 


100000 


1/68 




1769 




1770 




1771 


000016 


1772 


000000 


17/3 


000006 


17 74 


000014 


17 75 




17 76 




1777 




1/78 


001100 


17 79 


001100 


1780 


000050 


1781 




1782 


0}0132 


1783 


0CO004 


1784 




1785 




1786 




1787 


000020 


1788 


000022 


1789 


000027 


1790 


000030 


1791 


000031 


179? 


000035 


1793 


000042 


1794 


000053 


1795 




1796 




1797 




1798 


000016 


1799 


000020 


1800 


000022 


1801 


000030 


1802 


000032 


1803 




1804 




1805 




1806 




1807 


000016 


1808 


000020 


1809 


000022 


1810 


000030 


1811 


000052 


181? 


000040 


1813 


000042 


1814 


000050 


1815 


00005? 


1816 




1817 




18L8 




1819 


000000 


1820 


000002 


1821 


000004 



MFERRS 

vflast 

MFLAST 



HEADER 
DESTIN 
SOURCC 
PROTOT 



-» 40000 

»• 17 

•* 100000 



i LAST BUFFER OF A MESSAGE 



ETHERNET PACKET OFFSETS 

14, 


6 
12. 



l OFFSET (SIZE) TO END 
j DESTINATION ADDRESS 
i SOURCE ADDRESS 



OF KEADER IN BiTES 



j PROTOCOL TYPE FIELD 



MISCELLANEOUS DEFS 



XPKLEN 
RPKLEN 
TBLLEN 

STBLEN 
FRDADR 



1100 
1100 
40. 

90. 
4 



XMT PACKET 
RCV PACKET 
NODE TABLE 



LENGTH IN BYTES 
LENTH IN BYTES 
LENGTH (CHANGE STfcir.N 



IF 



THIS IS CHANGED, OR ELSE!) 
SUMMARY TABLE LENGTH (« ? . 25 X TBLLEN) 
OFFSET FOR MESSAGE HEADERS 



SYSTEM ID REPLY MESSAGE OFFSETS 



RIFUNC 

SIRCPT 

SIVERi 

SIECO 

SIUECO 

SIFNCT 

SIADOR 

SIDEV 



20 
22 
27 
30 

31 
35 
42 
53 



LOOP DIRECT OFFSETS 



LDSKIP 
LDFCT1 
LDADR1 

LDFCT2 
LDADR2 



16 
20 

t-C- 

30 
32 



j FULL ASSIST OFFSET 

J 



FASKIP -- 


16 


FAFCT1 -- 


20 


FAADR1 •- 


*> > 

C i. 


FAFCT2 -» 


30 


F AA0R2 » • 


3? 


FAFC13 »» 


40 


FAADR3 *- 


42 


F AFC 14 -- 


50 


FAADR4 -- 


52 


COUNTER OFFSETS 




C.SIZ ■' 





C.SKS »■■■ 


> 


C.PREC ■■ 


4 



:VN1AA0 DFUNA NI EXERCISER DIAG MACRO M1«?00 
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SEQ 36 



162? 


000010 


1823 


000014 


1824 


000016 


182^ 


000020 


1826 


000024 


1C27 


000030 


1828 


000032 


1829 


000034 


1830 


000040 


28T.1 


000044 


1832 


000050 


1833 


000054 


1834 


000060 


1835 


000064 


1836 


000070 


183? 


000072 


1838 


000074 


1839 




1340 




1841 




1842 


000001 


1843 


000002 


1844 


000004 


1845 


000010 


1846 




184 7 




1848 




1849 


000001 


1850 


000002 


1851 


000004 


1852 


000010 


1853 




1854 




1855 




1856 


000000 


IBS 7 


000001 


1858 


000000 


1859 


000001 


I860 


000002 


1861 


000000 


1862 


000001 


186 3 




1864 




1865 




1866 


000002 


186/ 


000001 


1868 


000005 


1869 




18/0 




18/1 




18/2 


ooocoo 


18/3 


000004 


18/4 


000006 


18/5 


000010 


1H/6 


000012 


18/; 


000014 


1878 


000016 



C.MREC 
C.RF.RR 
C.RF.RR 
C.RDAT 
C.RMDB 
C.RLIN 
C.RLEX 
C.PXMT 
C.MXMT 
C.PXM3 
C.PXM2 
C.PXMD 
C.XDAT 
C , XMDB 
C.XABB 
C.XABT 
C . COLL 



10 
14 
16 
20 
24 
30 
32 
34 
40 
44 
50 
54 
60 
64 
70 
72 
74 



XMIT ABORT REASON MASK BIT DEFINITIONS 

C.RTRY -- BITOO 

C.LCAR -- BIT01 

CSHRT -- BIT02 

C.OPFN -- BIT03 

RECEIVE ERROR REASON MASK BIT DEFINITIONS 

C.CRC •■ BITOO 
C.FRAM -- flITOl 

C.MLEN •- BIT02 
C.IHJNT -• BIT03 



} 



ROUTINE FUNCTION CODES 



BMPRCV 

BM2XMT 

INIADP 

ADDMU 

KILMUL 

XMTSET 

XMTDAT 



UPDATE 
UPDATE 



RECEIVE COUNTERS 

TRANSMIT COUNTERS 



INITIALIZE ADDRESS SETUP TABLE 

ADD MULTICAST ADDRESS TO SE TUP fAHLE 

KILL MULTICAST ADDRFSS IN SETUP TABLE 

XMIT AN ADDRESS SETUP PACKET 

<MIT A DATA PACKET 



FUNCTION CODES FOR LOOP -SERVER PACKETS 



FORWRD 
REPLY 

IDFUNC 



ONA DEVICE REGISTER OFFSETS 



NET ADD 
I ORCV 
HIHCV 
LOXMI 

HlXMT 

VECTOR 
CSR 





4 

6 

10 

12 

14 

16 



L3 



CVNIAAO 


DFQNA 


Nl EXERCISER 


BIT DU 1N1QONS 




18"<* 








1880 








1881 








188? 






000000 


188? 






000002 


1884 






00000? 


188S 






000004 


188b 






000006 


188 7 






000010 


1888 






000012 


1889 
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jOUM-tR DESCRIPTOR OFFSET DEFINITIONS 



SEQ 3 7 



FLAG 


-« 


DESC 


*■ 2 


HIADD 


* * 2 


LOAOO 


-, 4 


WRDCNT 


-* 6 


STATl 


-* 10 


STAT2 


«« 12 



M3 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
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SEQ 38 



1891 






1892 






1893 






1894 






1895 


002200 


000000 


1896 


002202 




1897 


002312 


000000 


1898 


002314 


000000 


1899 


002316 


000000 


1900 


002320 


000000 


1901 


002322 


000000 


1902 


002324 




1903 


002346 




1904 


002370 


000000 


1905 


002372 


000000 


190* 


002374 


000000 


190. 


002376 


000000 


1908 


002400 


000000 


1909 


002402 


000000 


1910 


002404 


000000 


1911 


002406 


000000 


1912 


002410 


000000 


1913 


002412 




1914 


002532 


177777 


1915 


002534 


177777 


1916 


002536 




1917 


002656 


177777 


1918 


002660 


177777 


1919 


002662 


177777 


1920 


002664 




1921 


002714 




1922 


O0320C 


177777 


1923 


003202 


000000 


1924 






1925 






1926 






1927 


003204 


000000 


1928 


003206 


000000 


1929 


003210 


000000 


1930 


003212 


000000 


1931 


003214 


000000 


1932 


003216 


000000 


1933 


003220 


000 


1934 


003221 


000 


1935 


003222 


000 


1936 


003223 


000 


1937 






1938 


003224 


055120 


1939 


003226 


055221 


1940 


003230 


055314 


1941 


003232 


055365 


1942 


003234 


0554 36 


1943 


003236 


055536 


io 44 


003240 


055651 


1^45 


003242 


055762 


1946 


00'. ,M 


05605? 


194 7 


003246 


056141 



.SBTTL GLOBAL DATA SECTION 

! COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 

I INDICATES THAT UE ARE IN TABLE BUILD MODE 
{BUFFER FOR OPERATOR COMMANDS 

f 

{BUFFER FOR NODE ADDRESS 



{BUFFER FOR ALPHANUM. ADDRESS STRING 

j POINTER FOR BEGINING OF ADDRESS STRING 

{LOC. TO HOLD MESSAGE TYPE 

{LOC. TO HOLD MESSAGE SIZE 

{LOC. TO HOLD NO, OF MESSAGE COPIES 

{LOC. TO HOLD NO. OF PASSES 

{ NUMBER OF RETRIES FOR LOSS OF CARRIER 

{ NUMBER OF RETRIES FOR NO CARRIER 

{LOC. TO HOLD NODE TYPE FOR NODE TABLE SETUP 

{USED BY NODE TABLE SUBROUTINES 

j SPACE FOR NODE TABLE 

{FILL LAST FOUR BYTES OF TABLE WITH ONES 

{SPACE FOR SAVE TABLE 

{ILLEGAL ADDRESS FOR COMPARISON 

j (MUST NOT BE PHYSICALLY SEPARATED FROM 

j END OF SAVTBL) 

} BUFFERS SUMMARY TABLE FOR SUMMARY REPORT 

{SPACE FOR SUMMARY TABLE 

; INDICATES IF UE ARE IN RESPONDER MODE 



BLDFLG 


.WORD 





CMDBUF 


.BLKB 


72, 


KEYWD1 


.WORD 





KEYWD2 


.WORD 





ADRBUF 


.WORD 







.WORD 







.WORD 





STRBUF 


.BLKB 


18. 


STRBU1 


.BLKB 


18. 


CBOADR 


.WORD 





P$TYPE 


.WORD 





P*SIZE 


.WORD 





PJCPYS 


.WORD 





P$PASS 


.WORD 





LSRTRY 


. .WORD 





NCRTRY 


; .WORD 





NODTY: 


.WORD 





SLOT;; 


.WORD 





NODTBL 


; .BLKW 


TBLLEN 




.WORD 


177777 




.WORD 


177777 


SAVTBL 


: .BLKW 


TBLLEN 


ILLADR 


: .WORD 


177777 




.WORD 


177777 




.WORD 


177777 


STATBF 


; .BLKB 


30 


STATBL 


: .BLKW 


STBLEN 




.WORD 


177777 


RSPFLG 


: .WORD 





! COMMAND LINE 


TRAVERSE 


PJBUFA 


: .WORD 





PUREE 


t .WORD 





PIACT: 


.WORD 





PiCNT: 


.WORD 





P$NUM: 


.WORD 





P$RADX 


: .WORD 





P*NNUF 


: .BYTE 





P5GDBD 


: .BYTE 





PiAERR 


: .BYTE 





PSMERR 


: .BYTE 





HLPTAB 


; .WORD 


HELP1 




.WORD 


HELP? 




.WORD 


HELP3 




.WORD 


HELP4 




.WORD 


HELP5 




.WORD 


HELP6 




.WORD 


HELP 7 




.WORD 


HELPS 




.WORD 


HELP9 




.WORD 


HELP10 



}LOC, TO 
jLOC. TO 
jLOC. TO 
;LOC. TO 
;LOC. TO 
{LOC. TO 
{RETURN 
{RETURN 
{RETURN 
{RETURN 
{MESSAGE 



HOLD ADDR. OF CMD Ll.JE BUFFER 
HOLD ADDR. OF PARSING TREE 
HOLD ADDR. OF ACTION ROUTINE 
BE A COUNTER LOCATION 
HOLD NUMERIC VALUE FROM PARSE 
HOLC RADIX(LO) £ »/-(HI BYTE) 
-0 IF ENOUGH OF COMMAND FJUND 
CODE IF NO ERROR FOUND 
IF 12 DIGIT ADDRESS ENTERED 
-1 IF ERROR IN OPERATOR SELECTED 
INPUT OCCURED, FOR GOOD INPUT 



N3 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
GLOBAL DATA SECTION 



1948 


003250 


056252 






1949 


003252 


056330 






1950 


003254 


056435 






1951 


003256 


056542 






1952 


003260 


056641 






1953 


003262 


056">40 






1954 


003264 


057043 






1955 


003266 


057132 






1956 


003270 


057235 






1957 


003272 


057305 






1958 


003274 


057410 






1959 


003276 


057466 






1960 


003300 


05755*. 






1961 


003302 


0576.,? 






1962 


003304 


057 752 






1963 


003306 


060102 






1964 


003310 


060166 






1965 


003312 


060272 






1966 


003314 


060374 






1967 


003316 


060513 






1968 


003320 


060563 






1969 


003322 


000000 






1970 


003324 


061536 






1971 


003326 


061544 






1972 


003330 


061551 






1973 


003332 


061557 






1974 


003334 


061564 






1975 


003336 


061571 






1976 


003340 


061577 






1977 










1978 










1979 










19J0 


003342 








1981 


003342 


000130 






1982 


003344 


000001 






1983 


003346 


000001 






1984 


003350 


000001 






1985 


0C3352 


000001 






1986 


003354 


000 100 






198 7 


003356 


000000 






1988 










1989 


00.3360 








1990 


003360 


0033/6 






1991 


003362 


003526 






1Q92 


003364 


003527 






1993 


003366 


003550 






1994 


00337G 


003551 






1995 


003372 


G03532 






1996 


0033 74 


003632 






1997 










1998 


003 3 76 


040 


04 1 


04 2 




003401 


04 3 


044 


045 




003404 


046 


04 7 


050 




0034 7 


051 


052 


053 




003412 


051 


055 


057 




003415 


Ot;0 


061 


0*i, J 




003420 


Q63 


064 


065 



200 c 
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.WORD 


HELP 11 




.WORD 


HLP115 




.WORD 


HELP12 




.WORD 


HELP13 




.WORD 


HELP14 




.WORD 


HELP15 




.WORD 


HELP16 




.WORD 


HELP17 




.WORD 


HELP18 




.WORD 


HELP19 




.WORD 


HELP20 




.WORD 


HELP21 




.WORD 


HELP22 




.WORD 


HELP23 




.WORD 


HELP24 




.WORD 


HELP25 




.WORD 


HELP26 




.WORD 


HELPS'.* 




.WORD 


HELP28 




.WORD 


HELP29 




.WORD 


HELP30 


HLPENO: .WORD 





MSGTAB: .WORD 


MSGTYO 




.WORD 


MSGTY1 




.WORD 


MSGTY2 




.WORD 


MSGTY3 




.WORD 


MSGTY4 




.WORD 


MSGTY5 




.WORD 


MSGTY6 


j THIS SECTION 


DEFINES THE OAT 


MSGCNT: : 




MSGOC 


.WORD 


EMSGO MSGOO 


MSG1C 


.WORO 


EMSGl-MSGOi 


MSG2C 


.WORD 


EMSG2-MSG02 


MSG5C 


.WORD 


EMSG3-MSG03 


MSG4C 


.WORD 


FMSG4-MSG04 


MSG5C 


.WORD 


EMSG5-MSG05 


MSG6C 


.WORD 





MSGAD 


. 






.WORD 


MSGOO 




.WORD 


HSG01 




.WORD 


MSG02 




.WORD 


MSG03 




.WORD 


MSG04 




.WORD 


MSG05 




.WORD 


OPSl Br 


MSGOO 


: .ASCII 


\ l"«WQ)**i 



SEQ 39 



; MESSAGE TYPE ASCII ADDRESS TABLE 



I THE NUMBER OF BYTES IN EACH MESSAGE 



-/Qi23456789w<«^?i3AbCDb.FGHlJKLMN0PQRaTUVWA^\ 



B4 
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SEQ 40 



1999 



2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 

2011 

2012 

2013 

2014 

2015 
2016 
2017 
2016 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
202/ 
2028 



003423 
003426 
003431 
003434 
003437 
003442 
003445 
00r»450 
003453 
005456 
003461 
003464 
00346 7 
0034 70 
0034 73 
0054 76 
003501 
003504 
003507 
003512 
003515 
003520 
003523 
003526 
003526 
003527 
003527 
003530 
003530 
003531 
003531 
003532 
003532 
003532 
003540 
003546 
003554 
003562 
003570 
003576 
003604 
003612 
003620 
003626 
003632 
003632 



003736 
003740 
003742 
003744 

003746 



066 

071 
0?4 
077 
102 
105 
110 
113 
116 
121 
124 
127 
132 
133 
055 
103 
106 
111 
114 
11/ 
12c 1 
125 
130 

377 

000 

252 

125 



177603 
04 7321 
143325 
104116 
105025 
111523 
137642 
135075 
052012 
151172 
166632 



003734 000000 



000000 
000000 
000000 
000000 
000000 



06 7 
072 
075 
100 
103 
106 
111 
114 
117 
122 
125 
130 

135 
101 
104 
107 
112 
115 
120 
123 
126 
131 



157427 
163715 
142304 
052606 
123754 
030030 
143531 
066730 
055627 
165044 
016147 



070 
073 
07b 
101 
104 
107 
112 
115 
120 
123 
126 
131 

136 
102 
105 
110 
113 
116 
121 
124 
127 
132 



031011 
105221 
040O41 
172334 
111337 
145064 
063617 
026575 
070071 
031605 



EMSGO 
MSG01 
EM5G1 
MSG02 
EMSG2 
MSG03 
EMSG3 
MSG04 
EMSG4 
MSG05 



EMSG5; 
OPSLBF 



.ASCII M ]t.ABCDEFGHUKLMNOPQRSTUVWXY/\ 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
>BLKB 



CFLAC, .WORD 



I ALPHANUMERIC 



377 


125 



I MESSAGE Or ALL ONES 

j MESSAGE OF ALL /ERCS 

i MESSAGE OF ALTERNATING ONES 

I MESSAGE OF ALTERNATING ZEROS 



t CCITT 511 BIT TEST PATTERN 
177603, 157427 ,03101 1,04 '321,163715. 105221 

143325,142304,040041,104116,052606.172334 

105025,123754,111337,111523,030030,145064 

13 7642,143531,063617,1350 75,066730,026575 

052012.05362 7,070071,151172,165044,031605 

1*6632,016147 

66. jBUFFER FOR OPERATOR SFLFCTFO MESSAGE TtPE 

i ACT ION ROUTINE CMO ARGUMENT FLAG 



wCLOCK TABLES, EVENT LOU AND POINTERS 

CLKCSR: .WORD j CLOCK CSR ADORES', 

CLKBRj .WORD i CLOCK INTfcRRL^T LEVEL 

CLKVEC: .WORO | CI OCK INIERRUPT VECTOR 

CLKH/; .WORD i DOCK'S *Rf Ql€ NC» INKRT/ 

CLKENs .WORD j CLOCK'S CSR VALUE TO INTRPT . tNABLt U 



C4 



VNIA'U) 
LOB At. C 


M H ^hhtf« cl ™ 


2029 


003 750 


000000 


2030 


003752 


000000 


2031 


003 754 


000000 


2052 


003756 


000000 


2033 


003760 


oooooo 


2034 


003762 


oooooo 


2035 






2036 






203? 






2038 






2039 


003764 


oooooo 


2040 


003766 


oooooo 


2041 


003 7 70 


oooooo 


2042 


003772 


oooooo 


2043 






2044 






2045 






2046 


0037 74 


oooooo 


204 7 


003776 


oooooo 


2048 


004000 


oooooo 


2049 






2050 






2051 






2052 


004002 


oooooo 


2053 


004004 


oooooo 


2054 


004006 


oooooo 


2055 






2056 






20^7 






2058 


004010 


oooooo 


2059 


004012 


oooooo 


2060 


004014 


oooooo 


2061 






2062 






2063 






2064 


004016 


177777 


2065 


0O4020 


177777 


2066 


004022 


177777 


206 7 






2068 






2069 






20 70 


004024 


000317 


2071 


004026 


OOOOOO 


2072 


004030 


OOOOOO 


2073 






2074 






20 75 






2076 


004032 


000253 


207 7 


004034 


001000 


2078 


00403b 


OOOOOO 


20 79 






2080 






2081 






2082 


004040 




2083 


004 040 


OOOOOO 


2084 


004042 


100000 


2085 


004044 


023772 
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SFQ 4! 



TIMMIN 
TIMSEC 
TIMTCK 
TIMER1 
TIMER2 
TIMERS 



■ WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.EVEN 



l PLACE TO KEEP TIME SINCE -START 

i PLACE TO KEEP NO. Of TICKS/SEC. 

I EVENT TIMER 01 f TICKS) 

i EVENT TIMER 02 (TICKS) 

l EVENT TIMER 03 (SECONDS) 



I 



i BUS ADDRESSES OF QNA HARDWARE REGISTERS 



R0MAD1: :.WORD 
. WORD 
RLSTLO;* .WORO 
RLSTHlt j .WORD 
i 
i DEFAULT PHYSICAL NODE ADRRES 

DEPADRst .WORD 

. WORD 
.WORD 

t ADDRESS OF ALL ZEROES, USED TO INIT THE TARGET ADDRESS TABLE 

J 



LOWER BYTE OF 1ST 



j ON READ, GET QNA ADDRESS. 

I THREE REGISTERS. 

jLOW BYTE OF STARTING ADDRESS OF RECEIVE LIST 

jHIGH BYTE OF STARTING ADDRESS OF RECEIVE LIST 



j PHYSICAL ADDRESS WORD 
j PHYSICAL ADDRESS WORD 1 
j PHYSICAL ADDRESS WORD 2 



NUADR: : 



.WORD 
.WORD 
.WORD 



j CURRENT PHYSICAL ADDRESS 



PHYADR: i 



i BROADCAST ADDRESS 
i 

BRDADR: 



.WORD 
.WORD 
.WORD 



j PHYSICAL ADDRESS WORD 
I PHYSICAL ADDRESS WORD 1 
l PHYSICAL ADDRESS WORD 2 



FF-FF FT -FF -FF FF 



.WORD 
.WORD 
.WORD 



-1 

1 
•I 



LOOP-SERVER MULTICAST ADDRESS - CF -00 -00-00-00-00 



LPADR: : 



.WORD 
.WORD 
.WORD 



317 







j DECNET MULTICAST ADDRESS FOR CONSOLE ID - AB 00 -00 02 00 00 



I 



MCSTADt 



.WORD 
.WORD 
.WORD 



253 

1000 




j RCV RING DESCRIPTOR ENTRY FOR SETUP MODE 



LORTGT; 



.WORD 
.WORD 
.WORD 





100000 

RCVTGr 



I LOW ADRS OF TARGET ADRS TBI DESCRPTR 

j AGAIN FQR LAST ENTRY 

l SET VALID BIT 

j ADDRESS OF RECEIVE BUFFER 



D4 
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SEQ 42 



2086 


004046 


000000 


2087 


004050 


000000 


2088 


004052 


000000 


2089 


004054 


000000 


2090 


004056 


000000 


2091 






2092 






2093 






2094 


004060 




2095 


004060 


000000 


2096 


004062 


100000 


2097 


004064 


023570 


2098 


004066 


000000 


2099 


004070 


000000 


2100 


004072 


000000 


2101 


004074 


000000 


2102 


004076 


000000 


210? 






2104 






2105 






2106 






2107 




000100 


2108 




000151 


2109 


004100 




2110 






2111 






2112 






2113 






2114 






2115 






2116 






2117 






2118 






2119 




0000 u. 


2120 




002354 


2121 


021200 




2122 


023554 




2123 






2124 






2125 






2126 






2127 






2128 






2129 






2130 






2151 




014100 


2132 




0241 JO 


2133 






2134 






2135 






2136 






2137 


023570 




2158 


0235/0 




2139 


023600 




2140 


0^3610 




214 1 


02 3620 




2142 


C23b30 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






I JUST ENOUGH or THE NEXT DESCRIPTOR 
j TO INVALID LIST 



5 XMIT RING DESCRIPTOR ENTRY FOR SETUP MODE 



LOXTGT: 



.WORD 





.WORD 


100000 


.WORD 


TGTADR 


.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






l CITIZENSHIP TEST SETUPS 

iRECEIVE BUFFERS 
SMLSIZ •- 64. 
R8UFNR ■• 105. 
RBL^B: .BLKB RBUFNR«SMLSIZ 

iRECEIVL DESCRIPTORS 



j LOW ADRS OF TARGET ADRS TBL DESCRPTR 

I AGAIN FOR LAST ENTRY 

l SET VALID BIT 

j ADDRESS OF TARGET FIELD 



i JUST ENOUGH OF THE NEXT DESCRIPTOR 
j TO INVALID LIST 



{SMALLEST SIZE IN BYTES OF ETHERNET PACKET 

JNUM8ER OF RECEIVE BUFFERS 

j 100 RECEIVE BUFFERS, 64 BY'.ES EACH. 



THERE ARE RBUFNR»1 DESCRIPTORS. ALL OF THEM EXCEPT THE LAST ONE 
ARE DATA DESCRIPTORS, I.E. THE ONLY CHAIN DESCRIPTOR IS THE LAST 
ONE TO CREATE A RING. COMMUNICATIONS WITH THE TESTER IS 
HALF-DUPLEX, I.E. PACKETS ARE RECEIVED ONE AT A TIME UNTIL THE 
COMPLETE MESSAGE IS RECEIVED* 



RDESSZ 
RDESAL 
RDESCt 



BLKB 
BLKB 
EVEN 



12. 

RDESSZ*RBUFNR 

RDESAL 

RDESSZ 



I SIZE IN BYTES OF EACH RECEIVE DESCRIPTOR 
I SIZE IN BYTES OF ALL DESCRIPTORS 
iSTORAGE FOR RBUFNR RECEIVE DESCRIPTORS 
j PLUS CHAIN DESCRIPTOR TO GIVE A RING 



iCITIZENSHIP WORK BUFFER 

j THE 800T/DIAG ROM LOADS INTO THE FIRST 4KB OF J^ RECEIVE BUFFERS. THE 4KW 

{ WORK BUFFER EXTENDS FROM THERE THROUGH THE TRANSMIT BUFFERS INTO THE. 

j STORAGE AREA THAT 15 CREATED BELOW. 

CITWORK -- RBUFB»4096, j8EGINNING OF 4KW WORK BUFFER 

CITWEND -• CITW0RK*4096. jEND*l OF WORK DUFFER 

j 

i 

j TABLE OF TARGET ADDRESSES USED IN SETUP MODE 

TGTADR: 



.BLKB 


8. 


.BLKB 


8. 


.BLKf3 


8. 


.BI.K3 


8. 


,BLHB 


8. 



{ BYTE 


OF Al 


.1. ADDRESSES 


l PY TF 


1 " 




l BtH 


t 




i b^h 


5 • 


• ■• ■• 


1 B.TE 


4 - 


,. 



1- 



E4 



CVNIAAO DfcUMA NI EXERCISER D1AG MACRO M1200 
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2143 


023640 




2144 


023650 




2145 


023660 




2146 


0236 70 




214? 


023700 




2148 


023710 




2149 


023720 




2150 


023730 




2151 


023740 




2152 


023750 




2153 


02376C 




2154 


023770 




2155 


023770 


000200 


2156 






2157 






2158 






2159 


02i7 72 




2160 


0.".37 72 




2161 


024002 




216? 


024012 




2163 


024022 




2164 


024032 




2165 


024042 




2166 


024052 




2H7 


024062 




2101 


024072 




2159 


024102 




2170 


024112 




2171 


024122 




21 7i> 


024132 




23 73 


024142 




2!.74 


024152 




2:.7'j 


024)62 




2.76 






2:. 7? 






2J78 






2179 


02417? 




2100 


024172 


025b M 


2181 


024174 


0267 74 


2182 


024 Wb 


030074 


2133 


024200 


0311^4 


21-*4 


024202 


032274 


21115 


024204 


033374 


21c;6 


024206 


0344 74 


215 7 


024210 


035574 


2188 






218* 






2190 






219J 


024212 




2192 


024212 


024574 


2193 






2194 






2195 


021214 


024236 


2196 


0:^4216 


02426J 


219/ 


024220 


0242 3t 


2198 


024222 


02V>60 


£199 


024224 


02423b 



TGTSIZ 
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• BLKB 


8. 






BYTE 5 " 


i» 


it i' 


.BLKB 


8. 






B'TE 6 " 


f« 


K i» 


.BLKB 


8. 






BYTE 7 " 


a 


i> •> 


.BLKB 


8, 






BYTE OF 


ALL 


ADDRESSES 8 


.BLKB 


8. 






BYTE 1 '* 


I* 


a it 


.BLKB 


8. 






BYTE 2 " 


it 


i' I* 


.BLKB 


8. 






BYTE 3 " 


■• 


It M 


.BLKB 


8. 






BYTE 4 " 


•■ 


II l» 


.BLKB 


8. 






BYTE 5 " 


i* 


l> l> 


.BLKB 


8. 






BYTE 6 " 


" 


1' f 


.BLKB 


8. 






BYTE 7 " 


!• 


It It 



SEQ 43 



- 14 



.WORD 



TGTSIZ - TGTADR 



; RECEIVE BUFFER FOR TARGET ADDRESSES 
RCVTGTt 



.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 


.BLKB 


8 



l SIZE OF THE TARGET ADDRESS 
LOOPED BACK IN SETUP MODE 

1-7 



j BYTE 





OF 


ALL 


ADDRESSES 


I BYTE 


1 


ti 


" 


»> c 


j BYTE 


2 


|l 


M 


ii ■• 


, BYTE 


3 


t> 


ti 


«» ii 


i BYTE 


4 


f 


ii 


ti M 


l BYTE 


5 


1' 


" 


l> *' 


j BYTE 


6 


It 


•t 


" 


. BYTE 


7 


II 


" 


• • t. 


l BYTE 





OF 


ALL 


ADDRESSES 


i BYTE 


1 


" 


" 


" 


i BYTE 


2 


!• 


i> 


<< i" 


j BYTE 


3 


■* 


•' 


$• t> 


I BYTE 


4 


■• 


•■ 


*• 


1 BYTE 


5 


ii 


" 


!• H 


j BYTE 


6 


•• 


•■ 


" 


i BYTE 


7 


" 


ii 


l« It 



14 



TABLE OF START ADDRESS OF RECEIVE RING BUFFERS 



RRNGTB 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



RRG001 
RRG002 
RRG003 
RRG004 
RRG005 
RRG006 
PRG007 
RRG010 



XRNGTB 



TABLE OF START ADDRESS OF TRANSMIT P' • BUFFERS 



.WORD XRG001 

POINTFRS TO DESCRIPTOR RING ENTRIES 



XRGSRT : 


: .WORD 


XRING j 


RRGSRT : 


: . WORD 


RRING i 


XRGCUR : 


: . WORD 


XRING t 


RRGCUR j 


: . WORD 


RRING j 


XRGNXTi 


: .WORD 


XRING j 



FIRST ENTRl IN TRANSMIT RING 
FIRST ENTR1 IN RECEIVE RING 
CURRENT ENTR1 IN TRANSMIT RING 
CURRENT ENTR> IN RECEIVE RING 
NEXT ENTRY IN TRANSMIT RING 



F'4 
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SEQ 44 



2200 
2201 
2202 
2?03 
£204 
2208 
2209 



2210 
2211 
221? 
2215 
2214 
2215 
22x9 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2236 

223 7 
2238 
2239 
22^0 
2241 
2242 
2243 
2244 
2245 
2246 

224 7 
2246 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 

225 / 
2258 



024226 
024230 
024232 
024234 

024236 
024236 
02423G 
024240 
024242 
024244 
024246 
024250 
024252 
024252 
024252 
024254 
024256 
024256 
024260 



024404 
024406 
024410 
024412 
0244 3 4 
024416 



024544 
024544 
024546 
024550 
024552 
024554 
02455'j 
024560 
024560 
024562 
024564 
0245*6 
024570 
024572 



024574 



02426C 
C24236 
02454 4 
024544 



000000 
100000 
024574 
000000 

oooooo 

000000 



oooooo 
oooooo 

000004 
000007 



OOOOOO 
1O00O0 
035574 
177340 
OOOOOO 
OOOOOO 



OGOOO? 



OOOOOu 
OOOOOO 
046574 
17 734 
OOOOOO 
OOOOOO 

OOOOOO 
140000 
024260 

OOOOOO 

oooooo 
oooooo 



RRGNXT; 




.WORD RRING 


XRGLST: 




.WORD XRING 


RRGLST; 




.WORD RRINGH 


RRGPRV; 




.WORD RRINGH 


XRING: i 








RNGFRM 


XRGOO,B,0 




.WORD 







.WORD 


100000 




.WORD 


XRG001 




.WORD 







.WORD 







.WORD 





XRINGH; 






XRGINVt 








.WORD 







.WORD 





RNGSIZ: 








.WORD 


. • XRINGH 


RRING: j 








,REPT 


7 




.NLIST 






RNGFRM 


RRGOO,B, -RPKLEN/2 




.LIST 






.ENDR 




♦ 


.WORD 







.WORD 


100000 




.WORD 


RRG010 




.WORD 


-RPKLEN/2 




.WORD 





• 


.WORD 





• 


.REPT 
.NLIST 


7 




RNGFRM 


RRG01.B, -RPKLEN/2 




.LIST 






.ENDR 




RRINGHj 


. 






' . WORD 







.WORD 







.WORD 


RRG020 




.WORD 


-RPKLEN/2 




.WORD 







.WORD 





RRGCHN? 


* 






' . WORD 







.WORD 


140000 




.WORD 


RRING 




.WORD 







.WORD 





• 


.WORD 





XRG001* 


• 


.BLKB XPKLEN 



t NEXT ENTRY IN RECEIVE RING 
l LAST ENTRY IN TRANSMIT RING 
1 LAST ENTRY IN RECEIVE RING 
j PREVIOUS DESCRIPOTR POINTER 



j FLAG WORD 

I SET VALID BIT (DSCR/HIGH ADDRESS WRD ) 

i SEGMENT BUFFER ADDRESS 

j BUFFER SIZE 

j STATUS WORD 1 

i STATUS WORD 2 



j JUST ENOUGH OF THE NEXT DESCRIPTOR 
i TO INVALIDATE LIST 



j SIZE OF DESCRIPTORS 



j ENTER BUFF ADD, BUF OFFSET, BUF SIZE 



5 AGAIN FOR LAST ENTR> (FLAG WRD) 

{ DESCR/HIGH ADDRESS WORD 

j LOW ADDRESS WORD 

I BUFFER SIZE (TWO'S COMPLEMENT) 

5 STATUS WRD 1 

j STATUS WRD 2 



j ENTER BUFF ADD, BUF OFFSET, BUF SIZE 



AGAIN FOR LAST ENTR^ (FLAG WRD) 

LEAVE THIS ONE INVALID 

LOW ADDRESS WORD 

BUFFER SIZE (TWO'S COMPLEMENT) 

STATUS URD 1 

STATUS WRD 2 



DESCRIPTOR 
ADORES^ OF 
8>TE COUNT 
STAT1 

STAT2 



10 CHAIN TO BEGINNING 0> RING 
START OF DESCRIPTOR RING 
UNNECESSARY) 



j XMIT RING BUFFER 
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SEQ 45 



2260 


025674 




2261 


026774 




2262 


030074 




2263 


031174 




2264 


032274 




2265 


033374 




2266 


034474 




2267 


035574 




2266 


036674 




2269 


037774 




2270 


0-41074 




2271 


042174 




2272 


043274 




2273 


044374 




2274 


045474 




2275 


046574 




2276 






2277 






2278 






2279 


04 7674 




2280 


04 7674 




2281 


04 7702 




2282 


047710 


001140 


2283 


047712 


000034 


2284 


047714 


007 


2285 


047715 


000 


2286 


047716 


046507 


2287 


04 7 720 


000000 


2288 


04 7722 


000 


2289 


047723 


OoO 


2290 


04 7 724 


000 


2291 


047725 


000 


2292 


04 7726 


000002 


2293 


047730 


001 


2294 


047731 


000 


2295 


047732 


000 


2296 


047733 


007 


2297 


047734 


000 


2298 


047735 


006 


2299 


04 7?36 




2300 


04 7744 


144 


2301 


04 7745 


000 


2302 


04 7 746 


001 


2303 


04/747 


005 


2304 


047750 




2305 






2306 


047770 




2307 


047770 


000074 


2308 






2309 






2310 






2311 






2312 






2313 


047772 


000000 


2314 


047774 


000000 


2315 


047776 


oooooo 



RRG001 
RRG002 
RRG003 
RRG004 
RRG005 
RRG006 
RRG007 
RRG010 
RRG011 
RRG012 
RRG013 
RRG014 
RRG015 
RRG016 
RRG017 
RRG020 



BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 
BLKB 



RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLEN 
RPKLFN 
RPKLEN 
RPKLEN 



I RECEIVE RING BUFFERS 



CONSOLE ID INFORMATION 



IDTDATj 



IDTSIZj 



• BLKB 
.BLKB 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BLKB 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BLKB 



.WORD 



6 

6 

1140 

28. 

7 



46507 











2 

1 





7 



6 

6 

100. 



1 

5 

65,-49. 



I DESTINATION ADDRESS FIELD 
{ SOURCE ADDRESS FIELD 

CONSOLE ID TYPE CODE 

NUMBER OF VALID DATA BYTES TO FOLLOW 

SYSTEM ID FUNCTION CODE 

PAD BYTE 

RECEIPT NUMBER ;; N,M. (CHANGED FROM 51115 TO 46507) 

MOP VERSION TYPE 

MOP VERSION LENGTH 

MOP VERSION VERSION 

MOP VERSION ECO 

MOP VERSION USER ECO 

FUNCTION TYPE 

FUNCTION LENGTH 

MAINTENANCE FUNCTIONS SUPPORTED I 

MAINTENANCE FUNCTIONS SUPPORTED 2 

HARDWARE ADDRESS TYPE 

SECOND BYTE OF ADDRESS TYPE 

HARDWARE ADDRESS LENGTH 

HARDWARE ADDRESS VALUE 

DEVICE TYPE FIELD 

DEVICE TYPE FIELD BYTE 2 

LENGTH OF DEV TYPE FIELD 

DEQNA DEVICE TYPE 

PAD THE REST OF THE PACKET 55 N.M, 

;j N.M, (USED TO BE .EVEN HERE) 



(CHANGED 43 TO 49) 



IDTDAT 



INFORMATION ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P- TABLE 



PTABLE INFO STORAGE FOR UNIT 



2316 



J 

QNAADO 
QNAVCO 
QNAPRO 

J 



.WORD 
.WORD 
.WORD 



{DEVICE ADDRESS FROM PTABLE 
1 VECTOR ADDRESS FROM PTABLE 
{PRIORITY FROM PTABLE 
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5EQ 46 



2317 






231ft 






2319 


050000 




2320 


"50004 




2321 






2322 






2323 






2324 


050006 


000000 


2325 


050010 


000000 


2326 


050012 


oooooo 


2327 






2328 






2329 






2330 


050014 




2331 


050020 




2332 






2333 






2334 






2335 


050022 


,00000 


2336 


050024 


OOOOOO 


2337 


050026 


oooooo 


2338 






2339 






2340 






2341 


050030 


oooooo 


2342 


050032 


oooooo 


2343 


050034 


oooooo 


2344 


050036 


oooooo 


2345 


050040 


oooooo 


2346 


050042 


oooooo 


2347 






2348 






2349 






2350 


050044 




2351 


050044 




2352 


050144 




235. 


050144 


000076 


2354 


050146 


oooooo 


2355 


050150 




2356 


050154 




2357 


050160 


oooooo 


2358 


050162 


oooooo 


2359 


050164 




2360 


050170 




2361 


050174 


oooooo 


2362 


050176 


oooooo 


2363 


050200 




2364 


050204 




2365 


050210 




2366 


050214 




2367 


050220 




2368 


050224 




2369 


05C230 




2^70 


050234 


oooooo 


2371 


0JC236 


oooooo 


23 7? 


050240 


oooooo 


£373 


050242 





REGISTER CONTENT HOLDING LOCATIONS FOR UNIT NUMBER 



NETADO: j 
CSRO: : 



.BLKW 
.BLKW 



i HOLDS CONTENTS OF STATION ADDRESS ROM 
} HOLDS CONTENTS OF CSR REGISTER 



PTABLE INFO STORAGE FOR UNIT 1 



QNAAD1 

QNAVC1 
QNAPR1 

J 
J 



WORD 
WORD 
WORD 



i CSR ADDRESS FROM PTABLE 
{VECTOR ADDRESS FROM PTABLE 
{PRIORITY FROM PTABLE 



CSR LOCATIONS FOR UNIT NUMBER 1 

NETAD1:: . Bl.KW 2 

CSRlu .BLKW 1 



l HOLDS CONTENTS OF STATION ADDRESS ROM 
j CONTENTS OF CSR REGISTER 



FRESIZ: :.WORD 
FREMEM; :.WORD 
UNIT i : .WORD 



{POINTER TO WORD CONTAINING SIZE OF FREE MEMORY 
{POINTER TO FREE MEMORY SPACE 
{CURRENT UNIT NUMBER BEING TESTED 



■ 

S.REC: 

S.NREC 

S.LENj 

S.COMP 

S.BYTE 

S.XFER 

j 

i 

UCB12: 

CNTR?t 



SUMMARY DATA COUNTERS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



SUMMARY LINK STATISTICS 



,BLKB 100 



CNTEND: 



. WORD 
.WORD 
.BLKW 
.BLKW 
.WORD 
.WORD 
.BLKW 
.BLKW 
.WORD 
.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.WORD 
.WORD 
,WQRD 



CNTEND 



2 

2 





2 

2 







- CNTRS 









j MESSAGES RECEIVED 

j MESSAGES NOT RECEIVED 

{ LENGTH ERRORS 

j COMPARE ERRORS 

5 BYTES COMPARED 

j BYTES TRANSFERED 



THIS AREA BUFFERS THE COUNTERS WHEN PRINTED 
SIZE OF BUFFER FOR COUNTER 

SJ7E OF COUNTER DATA BASE 

SECONDS SINCE LAST ZEROED 

PACKETS RECEIVED 

MULTICAST PACKETS RECEIVED 

RECEIVE ERROR REASON MASK 

NLflBER OF PACKETS RECEIVED WITH ERRS 

NUMBER OF DATA BYTES RECEIVED 

MULTICAST DATA BYTES RECEIVED 

RCV PACKETS LOST - INTERNAL BUFF ERR 

RCV PACKETS LOST - LOCAL BUFFER ERR 

PACKETS XMITTED 

MULTICAST PACKETS XMITTED 

TRIES 



3 OR MORE 
2 TRIES 

TO BE DEFERRED 



XMIT SUCCESS AFTER 

XMIT SUCCESS AFTER 

XMISSIONS THAT HAD 

BYTES TRANSMITTED 

NUMBER OF MULTICAST BYTES XMITTED 

ABORTED XMISSIONS, REASON MASK 

COUNT OF ABORTED TRANSMISSIONS 

COUNT OF XMIT CU.USON CHECK FAILURES 
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5EQ 4 7 



2374 






2375 






2376 






2377 


050242 


OOOOOO 


ROM ROM 






2378 


050244 


000000 


2379 


050246 


OOOOOO 


2380 






2381 






2382 






238? 


050250 


OOOOOO 


2384 


050252 


OOOOOO 


2385 


050254 


OOOOOO 


2386 


050256 


OOOOCO 


2387 


030260 


OOOOOO 


2388 


050262 


OOOOOO 


2389 


C50264 


OOOOOO 


2390 


050266 


OOOOOO 


2391 


050270 


0OO0'*«> 


2392 


050272 


OOOOOO 


2393 


050274 


OOOOOO 


2394 


050276 


OOOOOO 


2395 


050300 


OOOOfO 


2396 


050302 


010000 


2397 


050304 


OOOOOO 


2398 


050306 


000220 


2399 


050310 


001140 


2400 


050312 


OOOOOO 


2401 


050314 


OOOOCO 


2402 


050316 


OOOOOO 


2403 


050320 


OOOOOO 


2404 


0503r.2 


OOOOOO 


2405 


050324 


OOOOOO 


2406 


050326 


OOOOOO 


240/ 


050330 


OOOOOO 


2408 


050332 


001100 


2409 


050334 


OOOOOO 


2410 


050336 


OOOOOO 


24 11 






2412 






2413 






241" 






2415 






24 16 


050340 




2417 


050340 


000003 


2418 


050342 


000005 


2419 


050344 


051115 


2420 






2421 






2422 






2423 






2424 


050346 




2425 


050346 


OOOOOO 


2426 


050350 


000002 


2^7 


050352 


OOOOOO 


t' 


}50360 


000001 


VAd-i 


C50362 


OOOOOO 


24 30 







OEQNA DRIVER AND ASSOCIATED SUBROUTINES DATA 



COOOQO OOOOOO 
OOOOOO OOOOOO 



I 

CITTST: .WORD 



CITSUM: .WORD 





CSRBUF 


: .WORD 





FLAG1: 


: . WORD 





FATFLC 


ij ; .WORD 





PCEFLC 


J: :.WORD 





NIRCN1 


r::.WORD 





XFLAG; 


; .WORD 





DNIFLC 


Jt: .WORD 





RBFCN1 


r : : . WORD 





BC0UN1 


r : : . WORD 





ERRFLC 


Ji : .WORD 





TIM0U1 


N't .WORD 





RETRY' 


\ x i . WORD 





RCVERF 


1 : i . WORD 





RCVBUf 


* j : . WORD 





Ronsii 


r . , 


. WOW 


COUNT 


' : ' . WORD 





PRQTOC 


): :.WORO 


00' .* 


PROTOi 


>: : .WORD 


oc; ,~w> 


SLFTS1 


r : . WORD 





TEMP? 


.WORD 





TEMPI 


: .WORD 





TEMP2 


: .WORD 





TEMP3 


: .WORD 





XFER: 


.WORD 





CPYCN1 


r ; ; , WORD 





PCCALl 


. : s . WORD 





BUFLEf 


*: t .WORD 


XPKLEN 


CMPBUf 


*: { .WORD 





LAPCN 1 


r i . WORD 






*6, 



j REQUEST ID MESSAGE FORMAT 



REUIDi : 



t 



.WORD 
.WORD 

.WORD 



3 

IDFUNC 
"MR 



I HOLDS STARTING ADDRESS OF CITIZENSHIP TEST AFTER LOADING F 

HOLDS ADDRESS OF THE ROM CHECKSUM AFTER LOADING 
BUFFERS THE CSR. BIS AND 8IC HAPPEN TO THIS 
LOCATION WHICH IS THEN MOVED TO THE CSR. 
PREVENTS LOSING BITS THAT ARE "WRITE A 1 TO 
CLEAR" 

FLAG TO INDICATE IF CITIZ. TEST HAS RUN. 

FATAL ERROR FLAG 

PORT COMMAND ERROR FLAG 

QNA RECEIVE MESSAGE COUNTER 

FRAME TRANSMITTED FLAG 

DONE INTERRUPT FLAG 

RECEIVE BUFFERS LOST COUNTER 

UNEXPLAINED INTERRUPTS COUNTER 

ERROR FLAG 

TIME OUT COUNTER 

COUNTER FOR FRAMES FAILING DUE TO RTRY ERROR 

COUNTS NO. OF BUFFERS RECEIVED WITH ERRORS 

COUNTS NO. OF GOOD BUFFERS RECEIVED 

SIZE OF BOOT/DIAGNOSTIC ROM IN BYTES 

USED IN BLDBUF SUBROUTINE AS COUNTER 

PROTOCOL TYPE FOR LOOPBACK MESSAGES 

PROTOCOL TYPE FOR REMOTE CONSOLE 

EXECUTE SELF TEST FLAG 

USED IN XMIT AS TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

STORES 'BYTES TRANSFERED' 

'NO. OF COPIES 1 COUNTER FOR LOOPING 

STORES PC OF CALLING ROUTINE FOR ERROR RFPORTS 

STORES TRANSMIT BUFFER LENGTH 

STORES LOCATION OF DATA BUFFER TO BE COMPARED 

COUNTS HOW MANY LAPS "CURRENT RECEIVE 

DESCRIPTOR" POINTER IS AHEAD OF THE 

"NEXT RECEIVE DESCRIPTOR" POINTER 



; BYTE COUNT C-3 FOR REQUEST ID) 
j FUNCTION CODE FOR REQUEST ID 
i RECEIPT NUMBER 



I LOOP DIRECT MESSAGE 
.EVEN 



LOPDIRj 


: 






.WORD 







.WORD 


F ORWRO 




.WORD 


0.0,0 




.WORD 


1 




.WORD 


0,0,0 



t SKIP COUNT 
i FUNCTION » 
t LOCAL NODE 
5 FUNCTION ■ 
* LOCAL NODE 



FORWARD DATA 
ADDRESS 
REPli 
ADDRESS 



J4 
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2431 










j TRANSMIT ASSIST MESSJ 


2432 










• 






2433 


050370 








TAStSTi 


* 




2434 


050370 


rococo 








.WORD 





24 35 


050372 


000-?02 








.WORD 


FORWRD 


24 36 


050374 


000*. DO 


OOOOOO 


OOOOOO 




.WORD 


0,0.0 


2437 


050402 


OOOvOZ 








.WORD 


FORWRD 


24 38 


050404 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 


2439 


050412 


000001 








.WORD 


REPLY 


2440 


050414 


oooooo 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 


2441 










5 






2442 










j RECEIVE ASSIST MESSA 


2443 










i 






2444 


050422 








RASISTi 


» 




2445 


050422 


000000 








.WORD 





2446 


050424 


000002 








.WORD 


FORWRD 


240/ 


050426 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 


2448 


050434 


000<V>2 








.WORD 


FORWRD 


2449 


050436 


OOuOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0.0 


2450 


0504 44 


00000 i 








.WORD 


REPLY 


2451 


050446 


OOOOOO 


OOOOOO 


OOOOOO 




. WORD 


0.0,0 


2452 










i 






2453 










; POLL 


ASSIST 


MESSAGE 


2454 










1 






2455 


0,50454 








FASIST: 






2456 


050454 


OOOOOO 








.WORD 





2457 


050456 


000002 








.WORD 


FORWRD 


2456 


050460 


.00000 


OOOOOO 


OOOOOO 




.WORD 


0,0.0 


2459 


050466 


000002 








.WORD 


FORWKD 


2460 


0504 70 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 


2461 


0504 76 


000002 








.WORD 


FORWRD 


2462 


050500 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 


2463 


050506 


000001 








.WORD 


REPLY 


2464 


050510 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0 



SKIP COUNT 

FUNCTION - FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION • FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION - REPLY 
LOCAL NODE ADDRESS 



SKIP COUNT 
FUNCTION - 



FORWARD DATA 



TRANSMIT ASSIST ADDRESS 
FUNCTION - FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION - REPLY 
LOCAL NODE ADDRESS 



SKIP COUNT 






FUNCTION ■ 


FORWARD 


DATA 


TARCET NODE ADDRESS 


FUNCTION • 


FORWARD 


DATA 


ASSIST NODE ADDRESS 


FUNCTION • 


FORWARD 


DATA 


LOCAL NODE 


ADDRESS 




FUNCTION - 


REPLf 




LOCAL NODE 


ADDRESS 





I<4 
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2466 

246/ 

2468 

2469 

24/0 

2471 

24 72 

2473 

24 74 

2175 

24 76 

24 7 ,' 

24/8 

24 "9 

2480 

2481 

248? 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

250? 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

25; 1 

25? I 

2522 



050516 
050516 
050522 
050526 
050530 
050544 
050546 
050562 
050566 
050602 
050604 
050616 
05062? 
050626 
050640 
050644 
050662 
050o64 

0506 76 
050 700 
050702 
050704 
050/20 
050 724 
050744 
050750 
050 /66 

0507 72 
051010 
051014 
051030 
051032 
051052 
05105b 
051074 
0510/6 
051100 



.SOTTL COMMAND LINE ACTION TREE 
SAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 



! ACTION ! CHAR CODE ! 

! MISS DISPLACEMENT ! 

! NEXT MODE DISPLMNT ! 

! ASCIZ MATCH STRING ! 

! (.EVEN) ! 



ONLY IF "MISS" ARGUMENT DEriNED 
ONLY IF "ASCII" ARGUMENT DEFINED 
ONLY IF "ASCII" ARGUMENT DEFINED 



FIRST KEYWORD 



CLITRE: 








CLI 


CL 


N10*: 


CLI 


< ' 




CLI 


CL 


N12S: 


CLI 


CL 




CLI 


CL 


N14$; 


CLJ 


CL 




CLI 


CL 


N16*: 


CLI 


CL 




CLI 


CL 


N18$: 


CLI 


CL 




CLI 


CL 


N?0$; 


CLI 


< • 




CLI 


CL 




CLI 


CI 


N22$: 


CLI 


CL 




CLI 


CL 


N23$: 


CLI 


CL 




CLI 


CL 


N?4$: 


CLI 


CL 




CLI 


CL 


N25$: 


CLI 


CL 




CLI 


CL 


N26$: 


CLI 


CL 




CLI 


CL 


N?8$; 


CLI 


CL 




CLI 


CL 


N29$; 


CLI 


CL 




CLI 


CL 


N30$; 


CLI 


CL 




CLI 


CL 


N31S: 


CLI 


CL 




CLI 


CL 


N32*; 


CLI 


CL 




CLI 


CI 


N33$: 


CLI 


CL 




CLI 


CL 


! SECOND KEYWORD C 



N80$; CI I 



ISPA.O.NIO* 

?>,HELP,N12$ 

IEXI.O 

ISTR,HELP t N14$,< 'HELP* > 

IEXI.O 

ISTR.NOTNUF.Nies.^NODE' > 

IBR,0,N80$ 

ISTR, BUILD. N16*. <' BUILD' > 

IEXI.O 

ISTR,N0TNUF,N20*,<'RUN' > 

I8R.0.N180* 

S>,N0TNUF,N25* 

ISTR.0,N22$,<'H0W * 

IBR.O.NIOOI 

IS TR , SUMMRY , N?3 * , < * UMMARY ' > 

IEXI.O 

ISTR , CSAVE , N24 $ , < ' AVE * > 

IEXI.O 

IERR.O 

IEXI.O 

ISTR,N0TNUF,N?6$,''Cl EAR' > 

IBR.0,N1?0$ 

I STR.N0TNUF,N?8$,^' IDENTIFY' > 

IBR.0.N140* 

ISTR.NOTNUF ,N?9I,<' MESSAGE' > 

IBR,0,N160i 

ISTR,CUNSAV.N30*,<'UNSAVE' > 

IBR,0,N210* 

ISTR, EXIT, N31$.<'EXIT' > 

IEXI.O 

ISTR.NOTNUF ,N3?$ , <'FUNCTION' > 

IBR.0.N20O1 

1STR.RSP0ND,N33$, ''RESPOND' > 

IEXI.O 

IERR.O 

IEXI.O 



CLISPA,0,N81$ 



»0«' 



SKIP ANV LFADING SPACFS 

FIRST NON-SP CHAR. A 

YES 00 "HLP" AND EXIT 

IS ivIRST WORD A "HELP" 

YES DO "HLP" ANO EXIT 

IS FIRST WORD A "NODE" 

YES. BR N80$ 

IS FIRST WORD 

YES DO "BUILD 

IS FIRST WORD 

YES. BR N180I 

IS FIRST CHAR. 

YES IS REST OF 
IF YES, BR N100I 

IS REST OF WORD "l*1MARt 
YES. DO "SUMM" AND EXIT 
IS PEST OF WORD "AVE" 



IS THE 

IF 
ELSE 

IF 
ELSE 

IF 
ELSE 

IF 
ELSE 

IF 
ELSE 

IF 

EL 



A "BUILD" 
' AND EXIT 
A "RUN" 

A "S" 
WORD "HOW" 



SE 
IF 

ELSE 
IF 

ELSE 

E -IT 
ELSE IS 

V 
ELSE 

V" 
cLSE 

IF 
ELSE 

IF 
ELSE 

IF 
ELSE 

IF 
ELSE 

IF 



YES. DO "SAVE" AND EXIT 
"ILL COMMAND" 



FIRST WORD A "CLEAR" 
YES, BR N1?0$ 
IS FIRST WORD "IDENTIFY " 
YES. GET ADDRS. BR N140* 
IS FIRST WORD "MESSAGE" 
YES, 8R N160* 
IS FIRST WORD "UNSAVE" 
YES, BR TO N2I0* 
IS FIRST WORD "EXIT- 
YES EXIT 

IS FIRST WORD "FUNCTION' 
YES, BR N200* 
IS FIRST WORD "RESPOND'' 
YES LEAVE 



OTHERWISE 
EXIT 



"ILL CMD", 



j SKIP ANY LEADING SPACES 



L4 
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SEQ 50 



2523 
2524 

2525 
2526 
2527 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

254 7 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

i'57l 

2572 

2573 

25 74 

2575 

25 76 

25 1 1 

25 78 

2579 



051106 
051112 

051116 
051122 



051124 
051130 
051144 
051150 
051166 
051172 
051212 
051216 
051222 



051224 
051230 
051244 
051250 
051254 
051260 
0512 72 
051276 
051302 
051306 
051312 
051316 
051322 
051340 
051344 
051362 
051366 
051370 



051372 
051376 
051402 
051406 
051412 



051414 
051420 
051424 
051440 
051444 
051460 
051464 
Q515QQ 



N8U: CLI CLIBR,CSAVR4,N82$ 

N82*; CLI CLIBR.NODE ,N90$ 

N90*: CLI CLIBIF.0.N32* 

N95$: CLI CLIEXI.O 



SECOND KEYWORD FOR SHOW COMMAND 

N100$; CLI CLISPA.O.NIOI* 

N101*: CLI CLIHTR,CN0DE,N102$, <'NODES' > 

CLI CUBR.O.NUOi 

N102 $ : CLI CLISTR , CSHMSG . N104 $ , < » MESSAGE ' 

CLI CLIBR.O.NllOS 

N104J: CLI CLISTR, CCNTR.N106$,<' COUNTERS* 

CLI Cl.IBR,0,N110$ 

N106S; CLI CLIBR,0,N32$ 

N110S: CLI CLIEXI.O 



SECOND KEYWORD FOR CLEAR COMMAND 



N120S: 
N121$: 

N122*: 



N1235 



N124* 
N126J 
N130S 

N132* 

N134i 

N135J 



CLI CLISPA,0,N121I 

CLI CLISTR, O.N150$,<' NODE 

CLI CLISPA,0,N122* 

CLI <'/>,CSAVR4,N32$ 

CLI <'A>,0,N123$ 

CLI CLISTR, CN0DAL.N124* 

CLI CLIBR.O.N135* 

CLI <'N>,0,N124$ 

CLI CLIDEC,0,N32* 

CLI CLIBR,CNDLGG,N135$ 

CLI CL IBR , CE XADR , N 126 $ 

CLI CLIBR,CNOADR.N135$ 

CLI CLISTR.CCLMSC.N132S 

CLI CLIBR.O.N135* 

CLI CLISTR.CCLSUM,N134$ 

CLI CLIBR,0,N135$ 

CLI CLIERR.O 

CLI CLIEXI.O 



<'LL' > 



MESSAGE 
SUMMARY 



ADDRESS FOR IDENTIFY COMMAND 



N140$: CLI CLISPA,0,N141* 

N14U: CLI CLIBR,CSAVR4,N142J 

N142$: CLI CLIALN.O.N32* 

CLI CLIBR,CEXADR,N143$ 

N143$: CLI Cl.IEXI , IDENT 

REMAINING COMMAND LINE FOR MESSAGE COMMAND 



N160* 
N161S 



N162* 



CLI CLISPA.O.Nlbli 

CLI <'/*,0,Nl78$ 

CLI CLISTR, 0,N170*,<' TH'E' * 

CLI <'->,0,N32t 

CLI CLISTR, CALPHA,N162$.<' ALPHA' > 

CLI CLIBR,0,N168$ 

CI 1 CLISTR, C0NFS.Ni&3$,<*0NE5 4 > 

CLI CLIBR l Q.Nl6tt4 



jSAVE STRING POINTER LOCATION 
j PARSE THROUGH ADDRESS, CHECK 
{FOR TARGET OR ASSIST, DO NODE 
{TAKE ERROR BRANCH IF ERROR EXISTS 
;EXIT 



j SKIP LEADING SPACES 
{IS NEXT WORD "NODES" 

If YES, SET FLAG. BR N110$ 
ELSE IS NEXT WORD "MESSAGE" 
IF YES .SET FLAG. BR N110$ 
{ELSE IS NEXT WORD "COUNTERS" 
j GO TO COUNTERS ROUTINE 
{ELSE "ILL COMMAND" 
{EXIT 



{SKIP LEADING SPACES 
IS NEXT WORD "NODE" 
IF YES SKIP SPACES 
LOOK FOR DELIMETER, ELSE "ILL COM 
IS NEXT CHAR, AN "A" 
IF YES, IS WORD "ALL" 

IF YES, SET FLAG, BR N135* 
{ ELSE IS NEXT CHAR. AN "N" 
{ IF YES. STORE NODE LOGICAL NAME 
j BR TO CLR. NODE LOGICAL ROUTINE 
: ELSE, EXTRACT ADDRESS 



SET FLAG, BR N135* 



{ELSE 

i If 
{ELSE 
i IF 
{ El SE 
{EXIT 



{SKIP 
{SAVE 



IS NEXT WORD "MESSAGE" 
YES, SET FLAG, BR N135$ 
IS NEXT WORD "SUMMARY" 
YES, CLEAR TABLE AND EXIT 
"ILL COMMAND". 



LEADING 
POINTER 



SPACES 



TO FIRST CHAR. QF ADDRESS 



{CHECK THAT ADDRESS HAS LEGAL CHARTS 

;GET ADDRESS 

{DO "IDENTIFY", EXIT 



iSKlP LEADING SPACES 

j IF CHAR. "/", CONT.. ELSE BR Nl?6? 

{IS NEXT WORD "TYPE" 

I IF lES, FOLLOWED B> "-"?. 

{ IF "ALPHA", SET TLAG 

i CONTINUE AT N168i 

! IF "ONES", SET FLAG 

i CUNTlNUh AT NlbtH 
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SEQ 51 



2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 



051504 
051520 
051524 
051540 
051544 
051560 
051564 
051600 
051604 
051610 
051614 
051620 
051634 
051640 
051644 
051650 
051666 
051672 
051676 
051702 



051706 
051712 
051732 
051736 
051750 
051754 
051772 
051776 
052014 
052020 
052034 
052040 
052044 



05204b 
052052 
052056 



052060 
052064 
052070 
052072 



N163$: CLI CLISTR, CZEROS ,N164 $,<' ZEROS' > 

CLI CLIBR, 0,N168$ 

N164$: CLI CLISTR, ClALT , N165$ ,<• 1ALT' > 

CLI CLIBR, 0,N16S$ 

N165$: CLI CLISTR, COAL T ,N166$ . < * ©ALT' > 

CLI CLIBR, 0,N168$ 

N166$: CLI CLISTR, CCCITT ,N167* , <■ CCITT' > 

CLI CLIBR, 0,N168$ 

N167$: CLI < ' "> ,CSAVR4,N32$ 

CL I CLIBR , COPRSL , N168 * 

N168*: CLI CLIBR.CTYPE.N160S 

N170$: CLI CLISTR, 0,N175$,<'SIZE' > 

CLI <'->»0,N32* 

CLI CLIDEC.CSIZE.N32* 

CLI CLIBR, 0,N160* 

N175*; CLI CLISTR, 0,N32$ ,<• COPIES' > 

CLI <*->.0,N32* 

CLI CLIDEC,CCPYS,N32$ 

CLI CLIBR, 0.N160$ 

N178$: CLI CLIBR, 0.N32* 

SECOND KEYWORD FOR RUN COMMAND 

N180$: CLI CLISPA,0,N161* 

N181$; CLI CLISTR, CLUPPR,N182$,<« LOOPPAIR' 

CLI CLIBR, 0,N185i 

N182$: CLI CLISTR.CRNALL ,N163$ , < ' ALL ' » 

CLI CLIBR, 0,N185$ 

N183*; CLI CLISTR, COIR, N184$ ,<• DIRECT' > 

CL*' CLIBR, 0.N185V 

N184$: CLI CLISTR, CPATHN, N32i ,<• PATTERN' > 

N185*: CLI CLIBR.C0EFLV.NI66* 

N186$: CLI CLISTK t O f HS : . * , <• /PASS' > 

CLI <' '> .O.KSci 

CLI CLIDEC.O.N32* 

N190$; CLI CLIEXJ.CRUN 

! REMAINING COMMAND LINE F OR FUNCTION COMMAND 



N200*: CLI 
N2015: CLI 

CLI 



CLISPh,0,N201S 

CLI0CT,CFUNCT,N32$ 

C1.IEXI.0 



j IF "ZEROS", SET FLAG 
; CONTINUE AT N168S 

} IF "1ALT", SET FLAG 
CONTINUE AT N168* 
IF "OALT", SET FLAG 
CONTINUE AT N168* 
IF "CCITT", SET FLAG 
CONTINUE AT N168* 
IF "OPERATOR", SET FLAG 
AND INPUT SPECIFIED STRING 
DO "TYPE", CHECK FOR MORE INPUT 
ELSE IS WORD 'SIZE" 

IF YES, FOLLOWED BY "»"? 
STORE NUMBER IN M$SIZE 
CHECK FOR MORE INFO 
ELSE IS WORD "COPIES" 

IF YES, FOLLOWED BY "»•'? 
STORE NUMBER IN M$CPYS 
CHECK FOR MORE INFO 
ELSE "ILL COMMAND" 



{SKIP LEADING SPACES 

;IS NEXT WORD "LOOPPAIR" 
j IF YES. SET "LOOPPAIR" FLAG 
;ELSE IS NEXT WORD "ALL' 
; IF YES, SET "ALL" FLAG 
;ELSE IS NEXT WORD "DIRECT" 
{ IF YES, SET "DIRECT" FLAG 
{ELSE IS NEXT WOHD "PATTERN" 
{SEE IF DEFAULT Of 1 PASS 
{PARSE THROUGH SWITCH 
{PARSE THROUGH "-" 
{GET PASS COL*i T 
{RUN TEST AND EXIT 



{ SKIP SPACES 

{ GET OCTAL NUMBER AND DO FUNCT 

i EXIT 



REMAINING COMMAND LINE FOR UNSAVE COMMAND 

N210*: CLI CL ISPA,0,N212$ 

N212J: CLI < ' / > ,0,N215! 

CLI Cl.IEXI.CUNSVF 

N215$j CLI CLIEXX.O 



SKIP SPACES 
PARSE THROUGH * . 
SAVE POINTER TO 



FILE NAME 



CVN1AA0 DEQNA NI EXERCISER OIAG MACRO M1200 
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N4 
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SEQ 52 



2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 



.NLIST BIN 



.SBTTL GLOBAL TEXT SECTION 



2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
266 J 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
26 74 
26/5 
26/6 
2677 
26/8 
<>>79 
2680 
<26dl 



052074 

052074 

052074 

052076 

052100 

052102 

052104 

052113 

052144 

052175 

052222 

052242 

052310 

052345 

052411 

052473 

052565 

052651 

052746 

053022 

053076 

053144 

053154 

053167 

053176 

053271 

053346 

053415 

053422 

053432 

053511 

053575 

053664 

053756 

054044 

054132 

054220 

054265 

054324 

054333 

054 345 

054415 

054530 

05464 3 

054 703 

054741 

055002 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



ERRTYP 

ERRN8R 

ERRMSG 

ERRBLK 

CLISPM 

CLIERM 

CLINUF 

CLIN8G 

CLIBRX 

L5O60: 

LORESP 

RECERR 

RTRYER 

BLOMSG 

ILADMS 

ILA0M1 

CADRER 

CADERR 

NULSTR 

NODADR 

LOGNAM 

NOOTfP 

NTBHDR 

TABFUL 

TABEMT 

NOD: 

SUMM: 

CLRMSG 

CPYLNT 

SIZLMT 

NOCMPR 

UNBOND 

ADROEL 

LOGDEL 

TABCLR 

UNSMSG 

SAVED: 

RESTOR: 

MSGPRM: 

MSG1: 

MSG11: 

MSG12: 

MSG2 

MSG3 

MSG4 



055046 H0MSU1; 



ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

,ASCIZ 

ASCIZ 

, ASCIZ 

, ASCIZ 

,ASCIZ 

,ASCIZ 

,ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI? 

.ASCIZ 

.ASCIZ 

. t.vt:N 

.A5CIZ 



L5ERRTBL; 



tNIE PROMPT 



ERRTBL 

. WORD 

.WORD 

.WORD 

. WORD 

<12><15>/NIE>/ 

/*N*A?ILL CMD-BAD SYNTAX?/ 

/*N*A?INCOMPLETE COMMAND?/ 

/*N*A?NUMBER TOO BIG?/ 

/*N*A?BAD RADIX?/ 

<CR><LF>\IS YOUR WALL OUTLET POWER 60 HERTZ?\ 

/*N*ANODE *T*A HAS RESPONDED./ 

/*N*APACKET RECEIVED WITH ONA ERROR./ 

/*N*ATRANSMISSION ABORTED -- EXCESSIVE COLLISIONS./ 

/*N*D2*A NODE ADDRESSES ADDED, ELAPSED TIME: *D2*A MINUTE./ 

/*N*ACANNOT USE BROADCAST ADDRESS (F/ -FF -FF -FF -FF -FF )/ 

/KNrfAFOR LOOP TESTING. ADDRESS WAS NOT ADDED TO NODE TABLE. KN/ 

/#N*APLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 

/*N*ATWELVE HEX-DIGITS REQUIRED FOR ADDRESS./ 

/*N*AA ZERO LENGTH STRING WAS ENTERED./ 

/*N*S2*T/ 

/*S14*AN*D2/ 

/*S14*T/ 

\*Ni<ANODE PHYSICAL ADDRESS NODE LOGICAL NAME 

/rfNKATHE *T*A TABLE IS FILLED TO CAPACITY!/ 

/*N*ATHE *T*A TABLE IS CURRENTLY EMPTY!/ 

/NODE/ 

/SUMMARY/ 

/*N*ATHE MESSAGE PARAMETERS HAVE BEEN RESET TO:/ 

/KNKATHE NUMBER OF COPIES MUST BE BETWEEN 1 A, >D 255./ 

/«N*ATHE MESSAGE SIZE MUST BE BETWEEN 32 AND 512 BYTES./ 

/*N*ATHE ADDRESS MARKED FOR DELETION WAS NOT If J THE TABLE./ 

/#N*AAN UNBOUNDED "OPERATOR INPUT" STRING WAS ENTERED./ 



TYPE(A/T)\ 



NODE 

NODE 



/trfNKATHE ADDRFSS HAS BEEN DELETED FROM THE 

/*N*ANODE N*D1*A HAS BEEN DELETED FROM THE 

/*N*ATHE *T*A TABLE HAS BEEN CLEARED./ 

/*N*ATHE NODE TABLE HAS BEEN *T / 

/SAVED./ 

/RESTORED./ 

/*N*ATHE CURRENT MESSAGE PARAMETERS ARE:/ 

/tfNtfATHE COLLECTION OF ALL NODE ADDRESSES COULD 

/#N*AHQWEVER, IF NO NEW NODES ARE ADD C D TO THE 

/*N*ATHE COLLECTION WILL STOP.*N/ 

/#N#Ay0U ENTERED *T#A NODE: *T/ 

,'#N#ATHt SPECIFIED ADDRESS IS: *T/ 

/^KhiATYPE-*T*A,SIZF-*D4KA,rOPn:S^D5- 

/*N*A ETHERNET DEFAULT ADDRESS (HEX): *T/ 



TABLE./ 
TABLE./ 



TAKE AS LONG AS 40 MINUTES, ' 
TABLE FOR A 10 MINUTE PERIOD/ 



B 



CVNIAAO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TfXT SECTION 



22-MAR-84 13:12 PAGE 11 -1 



SEQ 53 



2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2 725 

2?26 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2 7 34 

2? 35 

2? 36 

2 7 5.' 

2738 



055120 
055221 
055314 
055365 
055436 
055536 
055651 
055762 
056052 
056141 
056232 
056330 
056435 
056542 
05664 1 
056740 
057043 
057132 
057235 
057305 
057410 
057466 
057551 
057652 
057752 
060102 
060166 
060272 
060374 
060513 
060563 



060672 
060715 
060735 
060755 
060770 
061025 
061046 
061112 
061157 
061220 
061271 
061315 
061326 
061337 
061353 
061367 
061407 
061426 
061446 
061462 
061506 



HELP1 

HELP2 

HELP3 

HELP4 

HELP5 

HELP6 

HELP7 

HELP8 

HELP9 

HELP10 

HELP11 

HLP115 

HELP12 

HELP13 

HELP14 

HELP15 

HELP16 

HELP17 

HELP18 

HELP19 

HELP20 

HELP21 

HELP22 

HELP23 

HELP24 

HELP25 

HELP26 

HELP27 

HELP28 

HELP29 

HELP30 



PASABT 

TSTMS1 

T5TMS2 

TSTMS3 

TSTMS4 

OK: 

OKRE: 

OKTR: 

OKFU: 

ME SPAT 

MESPA1 

ALLNOO 

LUPAIR 

DIRECT 

rULAST 

TRASTj 

RECAST: 

PATTRN: 

NORESP; 

RETRt; 

LENGTH; 



.EVEN 
.ASCIZ 

.asciz 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



\*N*ACOMMAND SUMMARY FOR THE NETWORK INTERCONNECT EXERCISER (NIE)\ 
\*N*ACIT IS ONLY NECESSARY TO TYPE THE LETTERS IN BRACKETS)\ 



\*N2*A[H]ELP 

\*N2*A[E]XIT 

\*N2*A[SHlOW 

\*N2*A[SH]0W 

\*N2*A[SH]0W 

\*N2#A[R]UN 

\*N2*A[R]UN 

\#N2*A[R]UN 

\*N2*A[R]UN 

\#N3*AfR]UN 



OR ? 



[MODES 

[MJESSAGE 

CC10UNTERS 
[LlOOPPAIR/PASS 
[A1LL/PASS-NN - 



PRINTS 

PRINTS 

PRINTS 

NN - 

RUNS 



TYPES THIS HELP TEXT.\ 
RETURN TO THE SUPERVISORS 

INFORMATION IN CURRENT NODE TABLE , \ 
THE SELECTEO MESSAGE TYPE, SIZE ANO COPIES. \ 
THE LOW LEVEi COUNTERS OF THE HOST NODE , \ 
RUNS THE LOOPPAIR TEST.N 
THE NOOE-TO-NOOE TEST.n 
C01IRECT/PASS-NN - RUNS THE LOOP DIRECT TESTA 
[P]ATTERN/PASS-NN - RUNS THE MESSAGE PATTERN TEST.\ 
CR1ESPON0ER - RUNS LOOP-SERVER/CONSOLE-ID RESPONOER TEST.\ 
\#N2*A(M]ESSAGE/tnYPE-A/fS)lZE-N/[C]0PIES«M - ALLOWS THE OPERATOR TON 
\#N*AMOOIFY THE DEFAULT MESSAGE TYPE. SIZE ANO COPY PARAMETERS. \ 
\*N2*A[N]00E ADR/TYPE - ENTERS A PHYSICAL ADDRESS INTO THE NOOE\ 
\*N*ATABLE. THE TYPE CAN BE EITHER [T]ARGET COEFAULT) OR [A]SSIST,\ 
\#N2#A[SU]MMARY - PRINTS A SUMMARY OF THE TEST RESULTS. \ 
\#N2#A[B1UILD - BUILDS A TABLE OF REMOTE NODE PHYSICAL ADDRESSES By\ 
\#N*ALISTENING TO ID MESSAGES ON THE NI , \ 

\#N2*A[C)LEAR [NlOOE/ADW - REMOVES THE NODE SPECIFIED BY EITHER ADR\ 
\*N*AOR NOOE LOGICAL NAME FROM THE NOOE TABLE. \ 
\*N2#A[C]LEAR [N)OOE/{AL]L - CLEARS THE NOOE TABLE. \ 
N#N2*A(C1LEAR [MJESSAGE - SETS ALL MESSAGE PARAMETERS TO DEFAULT. \ 
\#N2*A[C]LEAR (S3UMMARY - CLEARS THE TABLE OF SUMMARY TEST DATA.N 

\*N2i*A[ I IDENTIFY AOR - USES THE REQUEST ID FUNCTION TO IDENTIFY A REMOVE NODE ON TH£ NI*\ 
\#N2*A[SA]VE - SAVES THE CONTENTS OF THE NODE TABLE. \ 
\*N2*A[U]NSAVE - REPLACES THE CURRENT NOOE TABLE WITH THE SAVED ONE . S 
\#N?iSe*ANOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NOOE ON THE NI . \ 
\#N*S8*A 2) PASS COUNT IS A DECIMAL NLW6ER BETWEEN 1 ANO 65534. A DEFAULTS 

\#N*S8*A VALUE OF 1 IS ASSUMED. \ 

\*NtfS8*A SPECIFYING -1 CAUSES THE TEST TO BE RUN INDEFINATELi , \ 



TEST MESSAGES ANO ARGUMENTS 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCIZ 



/*N*A PASS ABORTED!/ 

/#N*T*A TEST -- / 

/#N*T*A NOOE: *T/ 

/#T#A ERROR/ 

/*N*T#A NOOE: *T*T*A NODE 5 *T/ 

/*A - RESPONSE OK/ 

/#N*A - RECEIVE ASSIST - RESPONSE 



OK/ 



/*N*A - TRANSMIT ASSIST - RESPONSE OK' 

/*N#A - FULL ASSIST - RESPONSE OK/ 

/#N*AERROR OCCURED WITH *T*A MESSAGE T1PE/ 

/tJA DATA PATTERN: *T/ 

/ALL NOOE/ 

/LOOPPAIR/ 

/LOOP DIRECT/ 

/FULL ASSIST/ 

/TRANSMIT ASSIST/ 

/RECEIVE ASSIST/ 

/MESSAGE PATTERN/ 

/NO RESPONSE' 

/EXCESSIVE COLLISION/ 

/LENGTH/ 
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SEQ 54 



739 061515 COMPAR; 



2 :4 1 

2742 
2 743 
2 744 
2745 
2746 
2747 
2746 
274Q 
2750 
2751 
2752 
2753 
2754 
2755 
2 756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2 764 
2765 
2766 
2767 
2 768 
2 769 
2 7 70 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2 780 
2 761 
2782 
2783 
2 784 
2785 
2 786 
2787 
2788 
2?89 
2790 
2/91 
2 792 
.7 793 
2/94 

27VJ 



061536 
061544 
061551 
061557 
061564 
061571 
061577 
061610 
061615 
061625 
061633 
061640 
061644 
061654 
061661 
061667 
061702 
061710 
061721 
061732 
061743 
061747 
061757 



06204 7 
062127 
062176 
062232 
062277 
062354 
062424 
062463 
062533 
062606 
062657 
062716 
062766 
063034 
063101 
063135 
063177 
065245 
063 320 
063365 



; 

MSGTYO 
MSGTY1 
MSGTY2 
MSGTY3 
MSGTY4 
MSGTY5 
MSGTY6 
CMDTY1 
CM0TY2 
CM0TY3 
CM0TY4 
CM0TY5 
CMDTY6 
CM0TY7 
CM0TY8 
CM0TY9 
ARGTY1 
ARGTY2 
ARGTY3 
ARGTY4 
ARGTY5 
ARGTY6 
ARGTY7 



061766 NOCLK: 



l 

CNTROO 
CNTR01 
CNTR02 
CNTR03 
CNTR04 
CNTR05 
CNTR06 
CNTR07 
CNTR08 
CNTR09 
CNTR10 
CNTR11 
CNTR12 
CNTR13 
CNTR14 
CNTR15 
CNTR16 
CNTR17 
CNTR18 
CNTR19 

i 



.ASCI/ 
.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

♦ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 
..«XIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCTZ 

.ASCIZ 

.EVFN 

.ASCIZ 



/DATA COMPARISON/ 



/ALPHA/ 

/ONES' 

/ZEROS/ 

/1ALT/ 

/OALT/ 

/CCITT/ 

/OPER SELV 

/EXIT/ 

/SUMMARY/ 

/BUILD/ 

/SHOW/ 

/RlN/ 

/MESSAGE/ 

/NODE/ 

/CLEAR/ 

/REQUEST ID/ 

/NODES/ 

/MESSAGES/ 

/COUNTERS/ 

/LOOPPAIR/ 

/ALL/ 

/ ASSIST/ 

/TARGET/ 



jMESSAGE TYPES 



{COMMAND TYPES 



j ARGUMENT TYPES 



/*N*ABAD CLOCK - PROGRAM WILL hANG ON "TIMEOUT"!!/ 



QNA COUNTER INFORMATION MESSAGES 



ASCIZ /*N*S5#AC0NTENTS Of NOOE *T*A INTERNAL C0UN1ERS;/ 

ASCIZ /#N2*ASEC0NDS SINCE LAST ZEROED :*S15*Z5/ 

ASCIZ /#N#APACKETS RECEIVED:*S19*T/ 

ASCIZ /*N#AMAATICAST PACKETS RECEIVED:#S9*T/ 

ASCIZ /*N#APACKETS REC'D WITH ERROR - BITMAPj*S8«B«/ 

ASCIZ /*N*APACKETS RECEIVED WITH ERR0R;*S13*Z5/ 

ASCIZ /*N*AOATA BYTES RECEIVED:*S16*T/ 

ASCIZ /*N#AMULTICAST DATA BYTES RECE IVED:*S6*T/ 

ASCIZ /*N*ARECEIVED PACKETS LOST - INTERNAL :#SlO*/5/ 

ASCIZ /•NrfARECEIVEO PACKETS LOST -LOCAL t*S12*/ r ^/ 

ASCIZ /^fMAPACKETS TRANSMUTED:*S16*T/ 

ASCIZ /#N*AMULTICAST PACKETS TRANSMI T TED:»S6#T/ 

ASCIZ /*NKAPACKETS TRANSMITTED 3» TRYS:#S8*T/ 

ASCIZ /*N*APACKETS TRANSMITTED 2 TRYS;*S9*T/ 

ASCIZ /#N#APACKETS DEFFERED ;*S19#T/ 

ASCIZ /#N*ADATA BtTES TRANSMI TTED :*S13*T/ 

mSCIZ /#N^AMULTICAST BYTES TRANSMI T TED s*S8*T/ 

ASCIZ /*NHATRANSMir PACKETS ABORTED BI TMAP :*S8*B6/ 

ASCIZ /*N#ATRANSM!f PACKETS ABORTED : **->l6*/5' 

ASCIZ /KKMAXMIT COLLISION CHECK FAILURE :*S12*Z5' 



ERROR MESSAGES FUR DEQNA DRIVER 
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SEQ 55 



2 796 



279? 








2 798 


063436 


EMSG01; 


.ASCI? 


2799 


063467 


EMSG ?x 


.ASCI? 


2800 


063527 


F.MSG03: 


.ASCIZ 


2801 


063563 


EMSG04 : 


.ASCIZ 


2802 


063605 


EM5G08; 


.ASCIZ 


2803 


063670 


EMSG10; 


.ASCIZ 


2804 


063735 


EMSGUj 


.ASCIZ 


2805 


063774 


EHSG14; 


.ASCIZ 


2806 


064050 


EMSG22; 


.ASCIZ 


2807 


064103 


EMSG24: 


.ASCIZ 


2808 


064157 


EHSG25; 


.ASCIZ 


2809 


064245 


EMSG32: 


.ASCIZ 


2810 


064322 


EM5G34, 


.ASCIZ 


2811 


064367 


EMSG35: 


.ASCIZ 


2812 


064424 


EMSG36, 


.ASCIZ 


2815 


064451 


EMSG37, 


.ASCIZ 


2814 


064515 


EMSG3B, 


.ASCIZ 


2815 


064561 


EMSG40 


.ASCIZ 


2816 


064662 


EMSG41 


. ASCIZ 


2817 


064764 


EMSG42 


.ASCIZ 


2818 


065062 


EMSG43, 


.ASCIZ 


2819 


065141 


EMSG44 


.ASCIZ 


2820 


065237 


EMSG45 


.ASCIZ 


2821 


065303 


EMSG46 


.ASCIZ 


2822 


065366 


EMSG4 7 


.ASCIZ 


2823 


065446 


EM5G48 


.ASCIZ 


2824 


065544 


EMSG50 


.ASCIZ 


2825 


065600 


EM5G51 


.ASCIZ 


2826 


065633 


EMSG52 


.ASCIZ 


2827 


065721 


EMSG53 


.ASCIZ 


2828 


065773 


EMSG54 


.ASCIZ 


2829 


066063 


EMSG55 


.ASCIZ 


2830 


066116 


tMSG56 


.ASCIZ 


2831 


066152 


F:*SG57 


.MSCIZ 


2832 


066211 


I M c G58 


.ASCIZ 


2833 


066267 


E*;:sG59 


ASCIZ 


2834 


066344 


EMSG60 


.ASCIZ 


2835 


066412 


EMSG61 


.ASCIZ 


2833 


066451 


EMSG62 


.ASCIZ 


2837 


066526 


EMSG63 


.ASCIZ 


2838 


066615 


EMSG64 


.ASCIZ 


2839 


066705 


EMSG65 


.ASCIZ 


2840 


066777 


EMSG66 


.ASCIZ 


2841 


067071 


EMSG6 7 


.ASCIZ 


2842 


067L21 


EMSG68 


: .ASCIZ 


284 3 


067204 


EMSG69 


5 ASCIZ 


2844 




} 




2845 




.EVEN 




2846 


067266 


SIM5G1 


: .ASCIZ 


284 7 


067325 


SIMSG2 


: .ASCIZ 


2848 


06 7360 


SIMSG3 


: .ASCIZ 


2849 


067420 


SIMSG4 


: .ASCIZ 


2850 


06/441 


SIM5G5 


: .ASCIZ 


2851 


06 746/ 


SIMSG6 


: .ASCIZ 


2*52 


06/515 


SIMSG7 


: .ASCIZ 



SHOULD NEVER GET 



ERROR 



/DEQNA PORT COMMAND ERROR/ j 

/DEQNA NON EXISTENT MEMORY ERROR/ 

/UNEXPLAINED DEQNA INTERRUPT/ 

/UNKNOWN QNA ERROR/ 

/TIMEOUY!- -DEQNA HARDWARE FAILED TO TRANSMIT PACKET/ 

/DEQNA STILL OWNS TRANSMIT DESCRI°TO?,/ 

/RECEIVE RING BOOKKEEPING ERROR/ 

/MESSAGE SIZE TOO BIG FOR MAX. PACKET LENGTH/ 

/*N*ANO RESPONSE FROM NODE./ 

/TRANSMIT ERROR, ALL PACKETS NOT TRANSMITTED' 

/ERROR WHILE WRITING MULTICAST ADDRESS LIST INTO DEQNA/ 

\*N*AILLEGAL TARGET/ASSIST PAID IN NODE TABLE\ 

<15><12>/TIMeOUT WAITING FOR L0OP6ACK REPLY/ 

/*AFAILING NOOE ADDRESS: *T#N/ 

/*ADATA PATTERN: *T*N/ 

/*AF AILING TARGET NOOE ADDRESS: #T*N/ 

/#AF AILING ASSIST NODE ADDRESS: *HN/ 

<15' <12>/TIME0UT WAITING FOR REPLY - LOOP MESSAGE TYPE 

<15><12>/TiME0UT WAITING FOR REPLY - LOOP MESSAGE TYPE 

<15><12>/TIME0UT WAITING FOR REPLY - LOOP MESSAGE TYPE 

\NON-EXISTENT MEMORY ERROR DURING ADDRESS SETUP\ 

\SETUP ADDRESS MISMATCH ERROR - DEQNA INTERNAL LOOPBACK FAILEDN 

\ADDRESS SETUP-PACKET TRANSMIT EhmOhn 

\ADDRESS SETUP-PACKET TRANSMITTED, BUT NOT RECEIVEDN 

\PACKET RECEIVED WAS NOT AN ADDRESS SETUP -PACKETS 

\AOORESS SETUP-PACKET TRANSMIT AND RECEIVE BYTE COUNT MISMATCHN 

\CASE OFFSET RANGE UNOERFLOWN 

\CASE OFFSET RANGE OVERFLOWN 

\LOOP SERVER FUNCTION CODE IS NEITHER FORWARD OR REPIYN 

\RECEIVE DATA TOO LARGE FOR RECEIVE BUFFER\ 

NMESSAGE ADDRESS WAS GOOO, BUT RUNT PACKET WAS RECEIVED. \ 

\RECEIVER OVERFLOW OCCURREO\ 

\RECE1VER CRC ERROR OCCURRED\ 

\RECEIVER FRAMING ERROR OCURRED\ 

\RECEIVED PACKET WITH ERRCfcS, THROWING IT AUAl \ 

MWEXPECTED LOOP-SERVER REPLY PACKET RECEIVEDN 

NRECEIVED PACKET OF LESS THAN 10 BYTESN 

NINKNCWN RECEIVE ERROR OCCURRcDN 

\ERR0R OCCURREO WHILE TRANSMITTING CONSOLE ID\ 

\NEXT RCV DESCRIPTOR POINTER PASSED CURRENT RCV POINTERN 

\OPERATOR ERROR - CANNOT USE THE DEVICE'S OWN NI ADDRESSN 

NTIMEOUY WAITING FOR BOOT/DIAGNOSTIC CODE TO LOAD FROM QNAn 

\LCADED BOOT /DIAGNOSTIC ROM CODE AND ROM CHEKCSUM MISMATCHN 

NCITIZENSHIP TEST FAILEDN 

\QNA HAROWARE RECEIVED A PACKET NOT ADDRESSED TO IT\ 

NAN ASSIST NODE HAS BEEN CHANGED TO A TARGET NODEN 



RECEIVE ASSIST/ 
TRANSMIT ASSIST/ 
FULL ASSIST/ 



/#N*A NODE DEFAULT ADDRESS: 
/*N*S8*ARECEIPT NuHBER : *06/ 
/*N#A MAINTENANCE VERSION: 
/*N*S19#AEC0: *Z2/ 
/*N*S14*AUSER ECO: *Z2/ 
/#N#S14KAFUNCTI0N: #02/ 
/*N#S16rfADF.VICE: ft02/ 



*T/ 



*12/ 



y&W A0 TP L tf N S NIAXfcRCISfcR DIAG MACRO M1200 
LOCAL. TEXT SECTION 



E5 
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SEQ 56 



2853 




♦ 




2854 




.EVEN 




2855 


067542 


PCMSG: 


.ASCIZ 


2856 




.EVEN 




2857 


067602 


CMPER1 


.ASCIZ 


2858 


067677 


CMPER2 


.ASCIZ 


2859 


067745 


LGERMS 


.ASCIZ 


2860 


070043 


SUMMS1 


.ASCIZ 


2861 


70064 


SUMMS2 


.ASCIZ 


2862 


070150 


SUMM53 


.ASCIZ 


2863 


070177 


SUMMS4 


.ASCIZ 


2864 


070262 


SUMMS5 


.ASCIZ 


2865 


070300 


SUMMS6 


.ASCIZ 


2866 




.EVEN 




2867 








28b8 









/*N*APC OF CALLING ROUTINE - ¥06/ 

/KNKABUE NUM3CR:^D4#A(D) EXPECTED-#06UA(0) RECE IVED«*06*A( 0)/ 

/#N*ATOTAl MISMATCHES IN MESSAGE - ¥04/ 

/t<N*ALENGTH ERROR - •■ BYTES EXPECTED: *06*A BYTES RECEIVED: *06/ 

/*N2*S8*AN0DE: *T/ 

/*N*ARX NOT COMPLETE RX COMPLETE LENGTH ERRORS/ 

/*N*S6#Z5#S12*Z5*S10*Z5/ 

/*N*ACOMFARE ERRORS BYTES COMPARED BfTES XFER/ 

/*N*S6*Z5*S6*T/ 

/*S5*T/ 



.LIST BIN 



CVNIAAO DtQNA NX EXERCISER 
GLOBAL ERROR REPORT SECTION 



Z 5 
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SEQ 57 



2670 

2871 
2872 
2873 
2874 
2875 
2076 
28 7 7 
2878 
2879 

2880 
2881 



2882 
2883 

2884 

2885 
2886 
2887 
2888 
2889 



2890 



2891 
2892 



2893 
2894 



070306 
070306 
070306 
070314 
070314 
070320 
070324 
070330 
070332 
070334 
070340 
070340 
070342 
070342 
070342 
070344 
070344 
070344 
070346 
070352 
070354 
070360 
070360 
070364 
070370 
070374 
070376 
070400 
070404 
070404 
070406 
070412 
070416 
070420 
070422 
70426 
070430 
070430 
070430 

704 52 

070432 
0704 32 
070432 
0704 36 
070442 
7044b 
070450 



013746 
012746 
012746 
010600 
104415 
062706 

104444 



104423 



010146 
013701 
006301 
062701 

012746 
012746 
012746 
010600 
104415 
062706 

011146 
012746 
012746 
010600 
104415 
062 706 
012601 



104423 



012746 
012746 
012/46 
010600 
1044J.5 



050330 
067542 



000006 



002372 

003324 

002324 
064367 
000002 

000006 



064424 
000002 



000006 



SBTTL GLOBAL ERROR REPORT SECTION 

THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

US'iD BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTS 

(BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 



012737 000020 003734 



BGNMSG ERR1 

MOV 
PRINTX 



002324 
064451 

000002 



0Cc.XlT.CFl.AG 
#PCMSG«PCCALL 



ERR1: : 



DOCLN 



ENDMSG 



BGNMSG ERR2 



L 10002: 



ERR2;; 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

TRAP 



TRAP 



MOV 


Rl.-(SP) 


MOV 


PSTYPE.R1 


ASL 


Rl 


ADD 


0MSGTAB.R1 



PRINTX 0EMSG35 , ftS TRBUF 



PRINTX 0EMSG36.CR1) 



ENDMSG 



MOV 



CSP)»,R1 



TRAP 



BGNMSG ERR3 

PRINTX OEMSG W.OSTRBUF 



ERR3: : 



PCCALL, -(SP) 
OPCMSG.-(SP) 
02, (SP) 

SP.RO 

C*PNTX 
06, SP 

C*DCLN 



C*MSG 



MOV 


OS TRBUF, (SP) 


MOV 


OEMSG35, -(SP) 


MOV 


02. -CSP) 


MOV 


SP.RO 


TRAP 


CSPNTX 


ADD 


06, SP 


MOV 


(Rl).-(SP) 


MOV 


0EMSG36, -CSP) 


MOV 


02 , - ( SP ) 


MOV 


5P.R0 


TRAP 


CSPNTX 


ADD 


06,sp 


1.10003; 





C5MSG 



MOV 


OS TRBUF. i;;P) 


MOV 


0EMSG5', -iSP) 


MOV 


02. l*P) 


MOV 


SP.RO 


TRAP 


CiPNTX 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
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G5 

22-MAR-84 13:12 PAGE 12-1 



SEQ 58 



>896 



589? 



£899 

£900 
£901 
£902 
£903 
£904 
£905 
2<*06 
£90? 
£908 
£909 
£910 
2911 



070452 
070456 
070456 
070462 
070466 
0704 72 
070474 
0/0476 
070502 
O705O£ 
070502 



06£706 000006 



012746 
012746 

012746 
010500 
104415 
062706 



104423 



002346 
064515 
000002 



000006 



PRINTX tfEMSG38,4STRBUl 



ADO 



#6 , SP 



MOV 


OSTRBUl.-(SP) 


MOV 


0EMSG38, -(SP) 


MOV 


*2.-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


06, SP 



ENOHSG 

L 10004; 

TRAP C*MSG 

: THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 

; AFTER AN ERROR CALL. THEY ARE INVOKED BY APPENDING THE NAME 

j OF THE AREA TO AN ERROR CALL: ERRXXX 1 , ERRORMESSAGE , AREANAME. 

I THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 
; BGNMSG AREANAME 

s CC0DE1 

i ENDMSG 

I THE ARFAS IN THIS SECTION AKE FOR MESSAGES USED IN MORE THAN ONE 

j TEST. USE THE PRINTB CPRINT BASIC) AND PRINTX (PRINT EXTENDED) 

} MACROS. 



Lir 



EK»ae°sBI8B0T«fc! 



15 
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SEU 59 



2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2924 

2925 

2926 

292 7 

2929 

2930 

2931 

2933 

2934 

2935 

2937 

2938 

2939 

2941 

2942 

2943 

2944 

2946 

294 7 

2948 

2950 

2951 

2952 

2954 

2955 

2956 

2958 

2959 

2960 

296 1 

296^ 

2964 

2965 

296 7 

2968 

2969 

2971 

29 72 

2973 

29 75 

29/6 

29/7 

29/8 

2979 

2981 

2982 

298 5 

2985 



.SBTTL GLOBAL SUBROUTINES SECTION 

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST, 

FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO. . , . 

COMPLETE THE "SUBROUTINE TO " STATEMENT WITH A FUNCTIONAL 

DESCRIPTION OF THIS SUBROUTINE. 

INPUTS? 

LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 

IMPLICIT INPUTS: 

LIST THE INPUT DATA THAT ARE IMPLICITLY USED BY THIS SUBROUTINE} 
FOR EXAMPLE. DATA READ FROM COMMON AREAS. 

OUTPUTS: 

LIST THE OUTPUT DATA THAT ARE EXPLICITLY GIVEN BY THIS SUBROUTINE 

IMPLICIT OUTPUTS: 

LIST THE OUTPUT DATA THAT ARE IMPLICITLY GIVEN BY THIS SUBROUTINE; 
FOR EXAMPLE. DATA STORED IN COMMON AREAS. 
*«**«*4**tf**tf*tf4*tf*tftftftftftffftftftf*tftfrf^^ 

SUBORDINATE ROUTINES USED: 

LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. 

FUNCTIONAL SIDE EFFECTS: 

DESCRIBE ANY EFFECTS THIS SUBROUTINE MAt HAVE 'UPON OTHER 
MODULES OF THE DIAGNOSTIC PROGRAM, AN EXAMPLE OF THIS IS 
THE SUBROUTINE INHIBITS ALL INTERRUPTS WITH PRIORITY 7. 

CALLING SEQUENCE: 



I 



5 



CVNIAAO DFQNA NT EXERCISER DIAG MACRO M1200 
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22 « MAR -54 l£jl? 



PAGE 13-1 



SEQ 60 



2966 
296. 
2988 

2969 
2990 
2992 
299 3 
2995 
2996 
299? 

2996 
3000 
3002 
3003 
3004 
3006 



GIVE THE EXACT CALLING SEQUENCE USED TO ACCESS THIS SUBROUTINE. 

FOR EXAMPLE; MOV COUNT, Rl jMOVE INPUT TO Rl 

JSR PC, ROUTINE ;G0 TO ROUTINE 

BCS ERROR i CARRY SET IF ROUTINE HAD ERROR 

INSER1 THE CODE FOR THIS SUBROUTINE. THE NAME OF THE SUBROUTINE SHOULD 
BE DEFINED WITH A DOUBLE-COLON (::)j THIS WILL MAKE THE SUBROUTINE GLOBAL. 

BEGIN EACH SUBROUTINE AT THE TOP OF A NEU PAGE. 



CVNIAAO QFQNA NI EXERCI! 
CLKSET CLOCK SETUP SU8I 



J 5 



R QIAG MACRO M1200 
UTINE 
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SEQ 61 



5008 
3009 
3010 
3011 
5012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 



.SBTTL 



CLKSRT CLOCK SETUP SUBROUTINE 



070504 
070504 
070506 
070510 
070512 
070514 
070516 
070520 
070522 
070524 
070526 



0\2122 
012112 
006312 
006312 
006312 
006312 
C 06322 
012122 
012122 
000207 



l -■■ * 

FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING 
A "CLOCK" CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE 
THE "CLOCK" CALL SAYS NOTHING ABOUT AN LSI-11'S CLOCK, THE 
ROUTINE IS ONLY USED IF A LINE OR P -CLOCK IS FOUND. 



INPUTS - 



OUTPUTS - 



Rl - POINTS 70 SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2 - POINTS TO "CLK" TABLE WHERE CLOCK INFO WILL BE KEPT 

"CLKCSR" GETS LOADED WITH THE CLOCK' D CSR ADDRESS 
"CLKBR" GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL 
"ClKVEC" GETS LOADED WI T H THE CLOCK'S INTERRUPT VECTOR 
"CLKK;"' GETS LOADED WITH THE LINE FREQ . (IN HERTZ) 



j CALL CLOCK SETUP WITH Rl AND R2 SETUP 



: CALLING PROCEDURE? 




JSR PC, CLKSET 


CLKSET: 




MOV 


(Rn»,(R2)i 


MOV 


(R1)*,CR2) 


ASL 


(R2) 


ASL 


CR2) 


ASL 


(R2) 


ASL 


(R2) 


ASL 


(R2)* 


MOV 


(R1)».(R2)» 


MGV 


(Rl)* t (R2)» 


RTS 


PC 



} LOAD CLOCK'S CSR ADDR. INTO "CLKCSR" 

i LOAD CLOCK'S INTR. LEVEL INTO "CLKBR" 

j ADJUST THE INTR. LEVEL FOR LOADING 
; INTO THE PSW WITH A "SETVEC" CALL 



j LOAD CLOCK'S INTR. 
j LOAD CLOCK'S FREQ. 



VEC INTO "CLKVEC" 
INTO "CLKHZ" 



I<5 



CVNIAAO 
CLKINT 

3041 

304? 
304 3 

3044 
304b 
3046 
304 7 

3048 
304 ^ 
3050 
SOS I 
305? 
3053 
3054 
3055 
3056 
305? 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
306/ 
3069 
30o9 
30 70 
30 71 
30"/,? 

30 n 

30*4 

30/5 
30 76 
3077 
30 78 
3079 
30 BO 
308 V 
308? 
3083 
3084 
3085 
3086 

308 7 
3088 
3089 
3090 
3091 
309? 

309 5 
30^4 
3095 
3096 



Di-UNA N.«. EXERCISER Dl'AG 
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SEQ 62 



70530 
070530 

0/0530 

0/0534 
070540 
70542 
0/0550 
070554 
070560 
70566 
070570 
0705/4 
70600 
070600 
70604 
070606 

o /oh l :; 

0/0612 
070616 
07 06 20 
0/0624 
0/0624 
0/0630 
706 3? 
070640 



005077 
005337 
001017 
013737 
005237 
005237 
02273/ 
001004 
005237 
0050 V/ 

OOj737 
001402 
005337 

005737 
00140? 
00533/ 

00573 7 

001406 
023/* 7 
001003 



.SDTTL 



CLKINT CLOCK INTERRUPT SERVICE ROUTINE 



FUNCTIONAL DESCRIPTION: 

THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE 
OF KEEPING THE "TIME-SINCE -START" AND COUNTING OOU/N ANY OF THE 
"EVENT" TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF 
DEVICE REQUESTS. THE "TIME -SINCE -START" IS USED TO BE LOGGED 
WITH EACH ENTRY INTO THE EVENT LOG. 

IMPLICIT INPUTS - TIMTCK - THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL 

A SECOND HAS BEEN COUNTED OrF 
CL.KHZ - THE NO. OF TICKS IN A SECOND. DETERMINED BY THE 

SYS. LINE FREQ. 
TIMMIN £ TIMSEC - CURRENT VALUE OF "TIME-SINCE -START" IN 

MINUTES AND SECONDS 
TIMER 1,2 AND S - CURRENT VALUES OF "EVENT TIMERS" 

IMPLICIT 0U1PUTS - NEW VALUE OF EVENT TIMER "1" £ "2" DECREMENTED BY 1 TICK 

IF IT WAS NON-^ERO 
NEW VALUE OF EVENT TIMER "S" DECREMENTED BY 1 SECOND IF IT 
WAS NONZERO 



SIDE EFFECTS 



THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 



CALLING PROCEDURE - THIS ROUTINE IS CALLED WHEN THE CLODK INTERRUPTS THRU 

"CLKVEC". THE ADDRESS OF THIS ROUTINE WAS LOADED 
INTO THE CLOCK'S INTERRUPT VECTOR WITH A "SETVEC" CALL 



CLKINT: : 



113202 

003754 

003 744 003754 

050146 

003/52 

000074 003752 

003/50 
003752 

003756 

003/56 
003760 
003 /60 
003762 
003744 003754 



10$: 



20$: 



30*; 



HGNSRV 


CLKINT 


CLR 


QCLKCSR 


DEC 


TIMTCK 


BNE 


10$ 


MOV 


CLKHZ, TIMTCK 


INC 


CNTRS»C.SECS 


INC 


TIMSEC 


CMP 


060. .TIMSEC 


BNE 


105 


INC 


TIMMIN 


CLR 


TIMSEC 


TST 


TIMER1 


BEU 


20$ 


DEC 


TIMER1 


TST 


TIMER? 


BEQ 


30$ 


DEC 


TIMER? 


TST 


TIMERS 


BEQ 


40$ 


CMP 


CI KHZ » TIM I C* 


BNE 


40$ 



FROM INTERRUPTING 
OF TICKS/SEC 



DISABLE THE CLOCK 

DECREMENT THE NO. 

GO CHECK TIMERS 

RESET THE NO. OF TICKS/SEC. 

INCREMENT UNA' S NUMBER OF SECS 

7.NC. NO OF SECS-SINCE -START 

SEE IF WE'VE COUNTED 60 SECS YET 

IF NOT, GO CHECK TIMERS 
ELSE, INC. MINUTES-SINCE -START 
AND RESTART SECOND COUNTER 



SEE 



i 



IF TIMER1 TIMING ANYTHING 
IF-O. NO, CHECK NEXT TIMER 
ELSE DECREMENT THE TIMER VALUE 



CB1 1 TICK) 



; SEE U TIMER? TIMING ANYTHING 

i IF-O, NO, CHECK NEXT TIMER 

l ELSE DECREMENT TIMER VALUE UH 



1 TICK) 



j SEE IF TIMERS TIMING ANYTHING 
i IE -0, NOTHING BE UMED. LLAVt 

i St e IE A SECOND HAS BEEN COUNTED 
i BR IF NO 



OEt- 



CVN1AA0 DFUNA Nt EXERCISER DIAG MACRO M1200 
CLKINT CLOCK INTERRUPT SERVICE ROUTINE 



3097 07064? 005337 00376? 

3098 070646 

30<H 070646 013777 C03746 113062 
3100 0/06S4 

0/06S4 

0706S4 0V0002 



404 
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DEC 

MOV 
ENDSRV 



TIMERS 
CLKEN.SCLKCSR 



SEQ 63 

j ELSE, DECREMENT TIMER VALUE (BY 1 SEC.) 
j REENABLE THE CLOCK TO INTERRUPT 

L 10005 j 

RTI 



M5 



& 
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SEQ 64 



3102 






3103 






3104 






3105 






3106 






3107 






3108 






3109 






3110 






3111 






311? 






3113 






3114 






3115 






3116 






3117 






3118 






3119 






3120 






3121 






3122 


070656 




3123 


070656 


010346 


3124 


070660 


010246 


3125 


070662 


010146 


3126 


070664 


010437 050330 


3127 


070670 


012401 


3128 






3129 


070672 


060701 


3130 


070674 




3131 


070674 


010446 


3132 


070676 


020506 


3133 


070700 


103401 


3134 


070702 


000000 


3135 


070704 




3136 


070704 


004711 


3137 


070706 


012604 


3138 


070710 


012601 


3139 


070712 


012602 


3140 


070714 


0126C3 


3141 


07071b 


000204 



. SBTTL PREG14 PRESERVE REGISTERS 1 THROUGH 4 ACROSS SUBROUTINE CALLS 



INPUTS; 

OUTPUTS: 



THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 
CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 

-REGISTERS 1 THROUGH 4 ARE PRESERVED ACROSS THE CALLED ROUTINE 
-A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN'T OVER -RUN 
THE PARAMETER STACK. 



CALLING SEQUENCE: 



THIS IS BEST HANDLED BY THE "CALL" MACRO. THE ACTUAL 
CALL IS: 

JSR R4.PREG14 

.WORD [SUBROUTINE NAME ) -ANCHOR 



COMMENTS; 
SUBORDINATE ROUTINES CALLED: 
PREG14: 



THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE. 
THIS ROUTINE IS DRS COMPATIBLE. 





MOV 


R3,^CSP) 




MOV 


R2.-CSP) 




MOV 


Rl.-(SP) 




MOV 


R4, PCCALL 




MOV 


(R4)»,R1 




ADD 


PC.Rl 


ANCHOR : 








MOV 


R4.-CSP) 




CMP 


R5.SP 




BLO 


10$ 




HALT 




10$: 








JSR 


FC.(Rl) 




MOV 


csP)»,Rn 




MOV 


(SP)»,R1 




MOV 


(SP)*,R? 




MOV 


(SP)*,R3 




RTS 


R4 



THE ROUTINE SPECIFIED IN THE CALL, 
;R4 IS ALREADY ON THE R6 STACK, 
jPUSH R3, R2, Rl 

{GET THE RELATIVE ADDRESS OF THE CALLED 

{ROUTINE. 

j MAKE IT AN ABSOLUTE ADDRESS. 

iSAVE THE RETURN TO THE CALLING ROUTINE, 
{CHECK FOR STACK OVER-RUN. 

! HANDLE STACK OVER -RUN CONDITION. 

{CALL THE SPECIFIED ROUTINE. 

{RESTORE THE RETURN TO THE CALLING ROUTINE. 

{RESTORE THE REGISTERS, 

» 

! BACK TO THE CALLING ROUTINE. 



N5 
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WAIT WAIT FOR DEQNA INTERRUPT WITH TIMEOUT 

.SBTTL 



3143 








3144 








3145 








3146 








3147 








3148 








3149 








3150 








3151 








3152 








3153 








3154 








3155 








3156 








3157 








3156 








3159 








3160 








M61 








3162 








3163 








3164 


070720 






3165 


070720 


012703 


000012 


3166 


070724 


012704 


003756 


3167 


070730 


005002 




3168 


070732 


010314 




3169 


070734 






3170 


070734 


005737 


050270 


3171 


070740 


001011 




317? 


070742 


005737 


050262 


3173 


070746 


001403 




3174 


070750 


005037 


050262 


3175 


070754 


000410 




3176 


070756 






3177 


070756 


005714 




3178 


070760 


001365 




3179 


070762 


000403 




3180 


070764 






3181 


070/64 








070764 


004437 


070656 




070770 


000106 




3182 


070772 






3183 


070772 


012702 


177777 


3184 


070776 






318S 


070776 








70/76 


010225 






071000 


000207 
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WAIT 



SEQ 65 



WAIT FOR DEQNA INTERRUPT WITH TIMEOUT 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE WAITS FOR INTERRUPTS FROM THE DFQNA 
OR REPORTS A TIMEOUT. IF A QNA INTERRUPT HAS NOT 
OCCURED WITHIN THE TIMEOUT PERIOD THE SUBROUTINE ERROR 
IS CALLED TO HANDLE IT. 



INPUTS 
OUTPUTS - 



SUCCESS OR FAILURE IS REPORTED VIA PI. 
NONE 

SUCCESS/FAILURE 0=SUCCESS/- 1=FAILURE 



PI: 



CALLING SEQUENCE: 
CALL 
P$POP 



WAIT 
PI 



WAIT 



10$ 



20$ 

30$ 

40$ 
50$ 



MOV 010., R3 

MOV 0TIMER1.R4 

CLR R2 

MOV R3.CR4:) 

TST ERRFLG 

BNE 30$ 

TST DNIFLG 

BEQ 20$ 

CLR DNIFLG 

BR 50$ 

TST (R4) 

BNE 10$ 

BR 40$ 

CALL ERROR 



MOV 0-l,R£ 



j MOVE NO. OK COUNTS TO R3 
j AND TIMER TO he USED TO R4 
;L0CAL STATvS PARAMETER 
;SET NUMBER OF TICKS. (GLOBAL) 

{CHECK IF ERROR OCCURED 

j BR IF YES 

; CHECK FOR INTERRUPT 

{ BR IF INTERRUPT RECEIVED 



;HAS TIMER EXPIRED? 

; BR IF NO TO WAIT FOR INTERRUPT 

;BR TO 40$ 



{CALL ERROR ROUTINE 

JSR 
.WORD 

{INDICATE FAILURE 



R4.PREG14 
ERROR -ANCHOR 



RETURN R2 



{RETURN WITH SUCCESS /FAILURE INDICATION 

MOV R2,(RS)* 
RTS PC 



ttt 
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3188 
3189 
3190 
3191 
3192 
5193 
3194 
3195 
3196 
319T 
1198 
3199 

3«:oo 

3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 



3214 
3215 



3216 
3217 
3218 



3219 
3220 
3221 



3222 
322 3 

3224 



0/1002 
071002 

071006 
071012 
071014 
071020 
071022 
071026 
071030 
071030 
071032 
071034 
071036 
071040 
071O42 
071042 
071044 
071046 
071050 
071052 
071056 
0710*0 
071060 
071062 
071064 
071066 
071070 
071074 
071076 
071076 
071100 
071102 
071104 
07U06 
0/1112 
07U12 



005337 

005737 
001013 
005737 
001017 
0057 37 
001023 

104455 
000004 
063563 
070306 
000424 

104455 
000001 
0634 36 
070306 
005337 
00O415 



oooocr* 

06346 7 
070306 
0053 v : 
00040*, 

104455 
000003 
063527 
070306 
J05537 

00000 V 



22 -MAR 84 13? 12 PAGE 16 



.SHTTL ERROR - HANDLE QNA INTERRUPT EP'tORS 



SEQ 66 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE CHECKS THE ERROR FLAGS SET BY 
UNAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
OUT THE APPRORIATE ERROR MESSSAGES. 



INPUTS - 
IMPLICIT 

OUTPUTS - 
IMPLICIT 



ERROR FLAGS SHOULD BE SET BY UNAISR ROUTINES. 

ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE. 



CALLING SEQUENCE* 

CALL ERROR 



050270 
050254 
050252 
050266 



- ♦ 
ERROR: 



10$ 



050254 



20$ 



> r .M^J 



*0$ 



050266 



40* 



DEC EKf.-'*.., 

TST PCEFLCi 

eNt ;os 

TST ?ATFLG 

BNE ;>o$ 

TST UCOUNT 

BNE .S0$ 

ERRDF 4,EMSG04 t ERRl 



iDECREMENT ERROR COUNTER TC SHOW 

I THAT IT HAS BEEN HANDLED 

I SEE IF PORT COMMAND ERROR 

\ IF YES. BRANCH 

I SEE IF Q,\»A FATAL ERRUR 

I IF YES, BRANCH 

j SEE IF UNEXPLAINED INTERRUPT 

I IK lES, BRANCH 

I ELSE UNKNOWN ERKOR 











TRAP 


CIERDF 










.UORO 


4 










.WORD 


EMSG04 










.WORD 


ERRl 


BR 


401 




1 FXIT 






ERRDF 


1.EMSG01, 


ERRl 


jPORT COMMAND ERROR 


TRAP 
WORD 


CIERDF 
1 








. 4 » 


. VJORO 
.WORD 


EMSG01 
ERRl 


DEC 


PCfKlG 




j INOICATF THAT ;i WAS 


HANOI t'D 




BR 


40$ 




» EXIT 






ERRDF 


2.EH5G02 


i'RRl 


lUNA FATAL ERROR 


TRAP 
'iORD 
.WORD 
.WORD 


CIERDF 
2 

EMSG02 
ERRl 


DEC 


F >TKLG 




i KEEP UP ON BOOK KEEPING 




OR 


40$ 




t EXIT 






? • ■•;:** 


^E'-'-.bOi 


'MUi 


lUNEXPLAINED INTERRUPT 


TRAP 
, WORD 
.WORD 
.WORD 


CSE RDF 

5 

emsi;o3 

ERRl 


D' C 


BCUUNT 




i '*00k KEEPING 






til TURN 






HE TURN 







RTS 



PC 



mm° vkm&hPWM 



sect 

3?2 ? 
3228 

3220 

3 4? 30 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
324b 
324? 
3248 
3249 
3250 
3251 
3252 
325? 
32S4 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
32 72 
3273 
32 74 
3275 
32 76 
327 7 
32 78 
3279 
3280 
3281 
3232 



071U4 
071114 
071120 
071126 
0?1\34 
07U42 
071142 
071146 

071150 
07U56 



071162 
071166 
0711 70 
07H76 

071202 
071206 

0/1212 
071212 
0/1216 



013702 
05273/ 
013762 
012737 

005737 
001375 

012762 
005062 



005/3 7 
001162 
012737 
012701 

012704 
012703 

012/24 
012724 
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SFQ 67 



SBTTl 



QNAINl INITIALIZE THE QNA 



SUBROUTINE TO 



ROUTINE STEPS: 



1) SET". QNA IN THE 

2) INITIALIZES ALL 
TO DEFAULT 



READY STAT^ 
QNA GLOBAL DATA 
VALUES. 



LOCATIONS 



SET RESET BIT RESET THE QNA 

SET TIMER TO ALLOW 100 USFCONOS FOR INIT 

INVALIDATE THE TRANSMIT LIST(S) 

VALIDATE THE RECEIVE LIST(S) 

ZERO RECEIVED BUFFER COUNT 

WAIT FOR TIMER 

CLEAR THE RESET BIT 

SET VECTOR ADDRESS 

READ PHYSICAL ADDRESS ROM ANO STORE IT 

WRITE THE RECEIVE RING LOWER ANO UPPER ADDRESSCs) 

ENABLE INTERRUPTS AND DATA T.cCEPTlON 

EXIT 



CALLED BY j 

INPUTS: 
OUTPUTS: 



CALL QNAINl 

NONE 

NONE 



047772 
000002 
050246 
000001 

003756 



000002 
000016 



050250 

000001 
000002 

021200 
004100 

l / / ; ; / 

100000 



SIUEEFFECTS: ALL GLOBAL LOCATIONS ARE ZEROED 

RESET AND STOP QNA HARDWARE 
QNAINl:: 



050246 
000016 
003 756 



000016 



lOt 



050250 



40$: 



MOV 
BIS 

MOV 
MOV 


QNAAD0.R2 
OMRESET.CSRBUF 
CSRBUF,CSR(R2) 
Ol.HMERl 


TST 

BNF 


TIMfcRl 
101 


MOV 
CLR 


0MRESET,CSR(R2) 
CSR(R2) 


D RUN 


CITIZENSHIP TEST 


TST 
BNt 
MOV 

MOV 


FLAG1 

QNAINl 
01. » I AG1 
02, Rl 


MOV 
MOV 


0WDESC.R4 

0R8UFB.R3 


MOV 
MOV 


1,(R4U 
0V,(R4)* 



GET THE DEVICE ADDRESS 
SCT SOFTWARE INIT BIT 
WRITE IT TO THE QNA 
TIMER FOP INITITIAUZE 

INIT DONE? 
BRANCH IF NOT 

CLEAR THE RESET BIT 
WRITE IT TO THE QNA 



j HAVE 
\ TEST 



WE GONE 
BEFORE i 



THRU THE 
IF YES, 



CITIZENSHIP 
BRANCH, 



jBUILD TWO RECEIVE DESCRIPTORS OF 

l 2K BYTES EACH 

iGET POINTER TO DESCRIPTOR 

jGET POINTER TO 1ST BUFFER 

l ALiWORD 
lOtSCRlPTOR BUS 



mm° mt&izPWM DlflG MrtCR0 m20 ° 



3283 


071222 


010324 






3284 










3285 


071224 


062703 


004000 




3286 


071230 


012724 


176000 




3287 


071234 


012724 


177777 




3288 


071240 


012724 


177777 




3289 










3290 


071244 


005301 






3291 


071246 


003361 






3292 


071250 


005024 






3293 


071252 


005024 






3294 










3295 


071254 


012762 


000002 


000016 


32^6 


071262 


005062 


000016 




329 Y 










3298 


071266 


C12762 


021200 


000004 


3299 


071274 


012762 


OOlOiO 


000016 


3300 


071302 


005062 


000006 




3301 


071306 


005004 






3302 


071310 








3303 


071310 


077401 






3304 


071312 


042762 


000010 


000016 


3305 


071320 


005004 






3306 


071322 








3307 


071322 


077401 






3308 










3309 


071324 


012762 


000002 


000016 


3310 


071332 


005062 


000016 




3311 










3312 


071336 


012704 


021200 




3313 


071342 


026427 


000000 


177777 


3314 


071350 


001016 






3315 










3316 


071352 


026427 


000010 


177777 


3317 


071360 


001012 






3318 










3319 


071362 


026427 


000012 


177777 


3320 


071370 


001006 






3321 










3322 


071372 


012704 


021214 




3323 


071376 


026427 


000000 


177777 


33^4 


7:404 


001410 






3525 










3326 


071406 








3327 


071406 
0714O6 
071410 
0/1412 
071414 


104456 

000101 
066 705 
000000 






3328 


071416 


012/00 


177777 




3329 


071422 


000137 


072122 




3330 










3331 


071426 








3332 


071426 


013701 


047772 




3353 










3334 


07143? 


01C246 






3355 


0714 34 


010546 







45$; 



47$: 
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MOV 


R3.CR4)* 


ADD 
MOV 
MOV 
MOV 


02048, ,R3 
0-1024. ,(R4)* 
0-1, (R4)* 

M,(R4)» 


DEC 
BGT 
CLR 

CLR 


Ri 
40$ 
CR4)* 
CR4). 


MOV 
CLR 


0MRESET.CSRCR2) 
CSRCR2) 


MOV 
MOV 
CLR 
CLR 


*RDESC,L0RCV(R2) 

*BD!EL,CSR(R2) 

HIRCVCR2) 

R4 


S08 
BIC 
CLR 


R4,45$ 

08D.CSRCR2) 

R4 


SOB 


R4.47S 


MOV 
CLR 


0MRESET,CSR(R2) 
CSRCR2) 


MOV 
CMP 
BNE 


OR0ESC.R4 

FLAGW0RD(R4),O-l 

50$ 


CMP 
BNE 


STAT3(R4) t *-l 
50$ 


CMP 
BNE 


STAT4(R4),d I 
50$ 


MOV 
CMP 

BEa 


0RDESC*R0ESS/,R4 
Fl AGWORDCR4),0-1 
70$ 



SEQ 68 



50$ 



ERRHRD 65.EMSG65 



70S 



MOV 
JMP 


l.RO 

QNAEXI 


MOV 


QNAAD0.R1 


MOV 
MOV 


R2, -(SP) 
R5, (SP) 



{POINTER TO BUFFER 

I GET POINTER TO 2ND BUFFER 
i SIZE IN WORDS 
{STATUS WORD 1 
j STATUS WORD 2 



jFLAGUORD OF INVALID DESCRIPTOR 
iDE c CRIPTOR BITS OF INVALID DESCRIPTOR 

I CLEAR THE RESET BIT 

I WRITE IT TO THE QNA 

jSET POINTER TO DESCRIPTOR 

jSET LOAD ROM BIT 

{BEGIN THE LOAD 

{WAIT FOR BOOT PHASE 1 



{CLEAR BOOT BIT 

{WAIT FOR BOOT PHASE 2 



j CLEAR THE RESET BIT 
j WRITE IT TO THE QNA 



{DID CITIZENSHIP TEST LOAD O.K.? 
j NO, ERROR 



jNO, ERROR 



l NO, ERROR 

{GET POINTER TO 2ND DESCRIPTOR 
{DID CITIZENSHIP TEST LOAD O.K.? 
jtES 



{NO, ERROR, 





TRAP 


C$ERHRD 




.WORD 


65 




.WORD 


l.MSGb^ 




.WORD 





{SET FAILURE STATUS 






{AND EXIT 







{GET BASE ADDRESS 



l SAVE R5 STACKPOINTER 



tt 
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SEQ 69 



3336 














3337 


071436 


012702 


014100 




MOV 


«CXTU0RK,R2 


3338 


071442 


004737 


004104 




JSR 


PC,RBUFB*CITVECTOR 


3339 














3340 


071446 


012605 






MOV 


(SP)»,R5 


3341 


071450 


012602 






MOV 


CSP)f,R2 


3342 














3343 


071452 


005700 






fST 


RO 


3344 


071454 


001413 






BEQ 


80$ 


3345 


071456 


02002 7 


100000 




CMP 


RO, 0100000 


3346 


071462 


001410 






6EQ 


80$ 


3347 


071464 
071464 
071466 
071470 
071472 


104456 
000103 
067071 
000000 






ERRHRD 


67.EMSG67 


3348 


071474 


012700 


177777 




MOV 


•-1.R0 


3349 


071500 


000137 


072122 




JMP 


QNAEXI 


3350 














3351 


071504 


032762 


OlOOOO 


000016 


80$: BIT 


0XC.CSRCR2) 


3352 


071512 


001410 






BEQ 


QNAINI 


3353 


071514 
071514 
071516 
071520 
071522 


104456 
000102 
066777 
000000 






ERRHRD 


66.EMSG66 


3354 


071524 


012700 


177777 




MOV 


•-1.R0 


3355 


071530 


000137 


072T22 




JMP 


QNAEXI 


3356 














3357 


071534 








QNAINI s 




3358 


071534 


013702 


047772 




MOV 


QNAAD0.R2 


3359 


071540 


052737 


000002 


050246 


BIS 


tfMRESET.CSRBL* 


3360 


071546 


013762 


050246 


000016 


MOV 


CSRBUF,CSR(R2) 


3361 


071554 


012737 


000001 


003756 


MOV 


Ol.TIMEfU 


3362 


071562 








5*: 




3363 


0/1562 


005737 


003756 




TST 


TIMER1 


3364 


071566 


001375 






BNF. 


5$ 


3365 


071570 


042737 


000002 


050246 


BIC 


•MRESET.CSRBUF 


3366 


071576 


013762 


050246 


000016 


MOV 


CSRBUF.CSRCR2) 


3367 


071604 


013762 


047774 


000014 


MOV 


QNAVCO, VECTORS) 


3368 


071612 


012737 


024236 


024220 


MOV 


•XRING.XRGCUN 


3369 


071620 


012737 


024236 


024224 


MOV 


ftXRING.XKGNXY 


3370 


071626 


012737 


024260 


024222 


MOV 


•RRING.H'fcXUR 


3371 


071634 


012737 


024544 


024234 


MOV 


*RRIN>jh,K?>jPKV 


3372 


071642 


012737 


024260 


024226 


MOV 


ORRING.RRGNXT 


33/3 


071650 


012703 


000001 




MOV 


01. R3 


3374 


071654 








10$; 




3375 


071654 


013701 


024220 




MOV 


XRGCUR.M 


33^*6 


071660 


005061 


OOOOOO 




CLR 


FLAG(Rl) 


35.--' 


071664 


005061 


000010 




CLR 


STATKR1 ) 


3378 


071670 


005061 


000012 




CLR 


5TAT2CR1) 


33/9 


071674 


012761 


0P4574 


000004 


MOV 


OXRGOOl.l.OAODCRl ) 


3380 


071702 
071702 
071706 
071/12 
071716 


012725 
012725 
004437 
006534 


024220 
OOOOOO 
070656 




CALL 


GETXNX 00,#XRGCUR 



{GET WORK AREA 

jGO TQ THE CITIZENSHIP TEST VIA VECTOR 

I RESTORE- R5 STACKPOINTER 



j DID ERRORS OCCUR 

i NO 

{NO 

j NO, ERROR. 



DURING CITIZENSHIP? 





TRAP 


C$ERHRD 




. WORD 


67 




.WORD 


EI--S67 




♦ WORD 





{SET FAILURE STATUS 






{AND EXIT 






:IS TRANSCEIVER OK? 






; rES 






iNO, ERROR. 








TRAP 


C$ERHRD 




.WORD 


66 




,WORD 


EMSG66 




.WORD 





j SET FAILURE STATUS 






{AND EXIT 







RESTORE DEVICE ADDRESS TO R2 
SET SOFTWARE INIT BIT 
WRITE IT TO THE QNA 
TIMER FOR INITITIALIZE 

INIT DONE? 

BRANCH IF NOT 

Ct/.-.AR THE RESET BIT 

URHF. IT TO THE QNA 

SF > .'HE INTERRUPT VECTOR 

SET XMXT POINTER TO BEGINNING OK RING 

AGAIN 

SET RCV POINTER TO BEGINNING OF RING 

SET P^LVIOUS POINTER TO LAST DESCRIPTOR 

SET NEi'T DESCK:PT0R POINTER 

RESF. r OWNERSHIP/STATUS OF XMIT RING 

RING ENTRIES 
RESET FLAG 
RESET STATUS 
RESET STATUS 2 



MOV 0XRGCUR.IR5)* 

MOV tfO,(R5)» 

JSR R4.PRFG14 

.WORD GETXNX -ANCHOR 



F6 
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3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 



3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
^410 
3411 



3412 

3413 
3414 



071720 
071722 
071724 
07173C 
071730 
071734 
071740 
071744 
071750 
071756 
071756 
071762 
071766 
071772 
071774 
071776 
072000 
072006 
072014 
072020 
072024 
072032 
072036 
072044 
072052 



072056 
072062 
072066 
072072 
072076 
72102 
072106 
072106 
072112 
072116 
072120 
072120 
072122 
072122 
072122 
072124 



005303 
001354 
012703 

013701 
005061 
005C61 
005061 
012761 

012725 
012725 
004437 
006450 
005303 
001354 
012737 
012737 
005037 
005037 
012762 
005062 
052737 
013762 
0,12703 



116223 
116223 
116223 
116223 
116223 
116213 

012725 
004437 
001232 

014500 



010025 
000207 



000017 

024222 
000000 
000010 
000012 
100000 

024222 
000000 
070656 



024236 
024260 
024546 
050256 
024260 
000006 
000501 
050246 
004010 



000000 
000002 
000004 
000006 
000010 
000012 

000000 
070656 



20$: 



000002 



024220 
024222 



000004 

050246 
000ul6 
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DEC R3 

BNE 10$ 

MOV 015.. R3 

MOV RRGCUR.R1 

CLR FLAGCRl) 

CLR STATKRl) 

CLR STAT2CR1) 

MOV 4MVALID, DESC(Rl) 

CALL GETRNX GO.ORRGCUA 



DEC R3 

BNE 20$ 

MOV OXRING,XRGCUR 

MOV ORRING.RRGCUR 

CLR RRINGH*DESC 

CLR NIRCNT 

MOV ERRING, L0RCVCR2) 

CLR HIRCVCR2) 

BIS OMILOOPJMINTEN'MRCVEN 

MOV CSRBUF,CSR(R2) 

MOV *PHYADR,R3 

NOW SETUP ADDRESSES IN THE DEQNA 

MOVB NETADDCR2),(R3)» 

MO VB NE T ADO ♦ 2 ( R2 ) , ( R 3 ) ♦ 

MOVB NE T ADO » 4 ( R2 ) , ( R3 ) ♦ 

MOVB NETADD»6CR2),(R3)» 

MOVB NETA0D»10(R2) t (R3)* 

MOVB NETADD*12(R2),CR3) 

CALL SETUP OINIADR 



SEQ 70 



I . . .AND RECEIVE RING 



l CLEAR FLAG WORD 
j CLEAR STATUS 1 
: CLEAR STATUS 2 
l SET THE VALID BIT 
I UPDATE, BUT DON'T 

MOV 
MOV 
JSR 



FOR THIS DESCRIPTOR 
VALDIATE PREVIOUS 

ORRGCUR.CR5)* 

00. (R5). 

R4.PREG14 



QNAEXI 



P*POP RO 



RETURN RO 



.WORD GETRNX -ANCHOR 



j SET POINTERS TO BEGINING OF RING 

j INVALIDATE LAST DESCRIPTOR 
5 CLEAR BUFFERS RECEIVED COUNTER 
i SP T LOW RECEIVE LIST ADDRESS 
I iET HIGH ADDRESS OF RCV LIST 
.CSRBUF ; SET BITS IN BUFFERED CSR 

i WRITE TO THE QNA 
; GET PHYSICAL NODE ADDRESS BUF 



i GET BYTE OF NODE ADDRESS 
l GET NEXT BYTE OF NODE ADORESS 
i GET NEXT BYTE OF NOOE ADDRESS 
I GET NEXT BYTE OF NODE ADDRESS 
; GET NEXT BYTE OF NOOE ADDRESS 
; GET NEXT BYTE OF NOOE ADDRESS 
{ CALL SETUP WITH INIT ADRESS FUNC CODE 

MOV OINIAOR,(R5)» 

JSR R4.PREG14 

.WORD SETUP ANCHOR 
j GET RETURN STATUS 

MOV CR5).R0 

j FINISHED, LEAVE. VAMOOSE, ETC. 

MOV R0,(R5V 

RTS PC 



CVNIAAO 
SETUP 

3416 

3417 

3416 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3426 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3A38 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

34b 1 

3462 

346 3 

3464 

3465 

3466 

346 ^ 

3468 

3469 

34 70 

34 71 

34 72 
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SEQ 71 



,SBTTL SETUP - SETUP UP NI ADDRESSES IN QNA 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE LETS THE QNA KNOW WHICH ADDRESSES IT IS SUPPOSED TO 
RECOGNIZE. 

BEGIN 

POINT TO TARGET ADDRESS TABLE 

GET SETUP TYPE FROM PARAMETER STACK 

CASE SETUP TYPE 

INITIALIZE TABLE 

INITIALIZE ADDRESS GROUP POINTER 

DO WHILE ALL ADDRESS GROUPS HAVE NOT BEEN WRITTEN 
INITIALIZE COLUMN POINTER 

POINT TO BASIC ADDRESSES TABLE (MBZ, OUR OUN) 
DO WHILE ALL ADDRESS COLUMNS FOR THIS GROUP ARE DONE 
IF BASIC ADDRESSES HAVE BEEN WRITTEN 
THEN 

POINT TO OUR OWN NI PHYSICAL ADDRESS 
ENOIF 

EXECUTE SUBROUTINE TO FILL IN THIS ADDRESS 
ENDDO 
ENDDO 
ADD DECNET CONSOLE ID MULTICAST ADDRESS 
POINT TO MULTICAST ADDRESS 
INIT GROUP POINTER 

INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 
INIT ROW POINTER 

EXECUTE ROUTINE TO FILL IN THIS ADDRESS 
KILL DECNET CONSOLE ID MULTICAST ADDRESS 
POINT TO MULTICAST ADDRESS 
INIT GROUP POINTER 

INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 
INIT ROW POINTER 

EXECUTE ROUTINE TO FILL IN THIS ADDRESS 
ENDCASE 

VALIDATE THE XMIT DESCRIPTOR FOR A SETUP 
EXECUTE ROUTINE TO XMIT THE SETUP PACKET 
IF STATUS - SUCCESS 
THEN 

SET STATUS - ERROR 

EXECUTE ROUTINE TO FIND A RECEIVED PACKET 
IF ERROR WAS DETECTED 
THEN 

REPORT RECEIVE ERROR 
ELSE 

IF NO PACKET HAS BEEN FOUND 
THEN 

REPORT PACKET NOT RECEIVED 
FLSE 

IF PACKET IS NOT A SETUP PACKET 
THEN 

REPORT UNEXPECTED PACKET 
ELSE 

IF THE XMITTED PACKET SIZE NOT * RECEIVED PACKET SU'fc 
THEN 



H6 
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SEQ 72 



34 73 
34 74 
3475 
34 76 
3477 
34 78 
34 79 
3480 
3481 
3482 
348? 
3484 
3485 

3486 
3487 
3488 
3489 
3490 
3491 
349? 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
350? 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
351? 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
352 7 
3528 
5529 



ELSE 



REPORT BYTE COUNT ERROR 



IF XMITTED SETUP DATA NOT 
THEN 
REPORT ADDRESS MISMATCH 

STATUS » SUCCESS 



RECEIVED SETUP DATA 



ENDIF 



ELSE 
ENDIF 



ENDIF 
ENDIF 
ENDIF 
? ENDIF 

RETURN STATUS » STATUS 
RETURN WITH RETURN STATUS 
END 

CALLING SEQUENCE 

TBD 

i INPUT 

NONE 

IMPLICIT INPUT 

NONE 

OUTPUT 

NONE 

j IMPLICIT OUTPUT 

NONE 

COMPLETION CODES 

NONE 

SIDE EFFECTS 

} NONE 

I REGISTERS USED 

J 

MO - RETURN STATUS, SET BY CALLED ROUTINES 
Rl - CASE OFFSET REG, ADDRESS GROUP POINTER 
R2 • ADDRESS COLUMN POINTER 
R3 - POINTS TO TABLE OF NI ADDRESSES 



072126 



DEBUG 



SETUP} 



NONE 
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3530 


072126 


012700 


177777 


3531 


072132 


012704 


023570 


3532 


072136 








072136 


014501 




3533 


072140 


100005 




3534 


072142 








072142 


104454 






072144 


000062 






072146 


065544 






072150 


000000 




3535 


072152 


000536 




3536 


072154 






3537 


072154 


022701 


000002 


3538 


072160 


002005 




3539 


072162 








072162 


104454 






072164 


000063 






072166 


065600 






07217C 


000000 




3540 


072172 


000526 




3541 


072174 






3542 


072174 


006301 




3543 


072176 


062701 


072204 


3544 


072202 


061107 




3545 


072204 






3546 


072204 


000006 




354 7 


072206 


000142 




3548 


072210 


000204 




3549 


072212 






3550 


072212 


012701 


177700 


3551 


072216 






3552 


072216 


062701 


000100 


3553 


072222 


001427 




3554 


072224 


022701 


000200 


3555 


072230 


001024 




3556 








3557 


072232 


013701 


024220 


3558 


072236 


012761 


177700 000006 


3559 


072244 








072244 


004437 


070656 




072250 


001560 




3560 


072252 








072252 


014500 




3561 


072254 


001075 




3562 


072256 


013701 


024220 


3563 


072262 


01276? 


177705 000006 


3564 


072270 








072270 


004437 


070656 




072274 


001560 




3565 


072276 








072276 


014500 




3566 


072300 


000463 




3567 


072302 






3568 


072302 


012702 


17 7777 


3569 


072306 


012703 


004002 


3570 


072312 






3571 


072312 


005202 





10$ j 



MOV 
MOV 
P$POP 

BPL 
ERRSF 



BR 



1, RO 

0TGTADR.R4 
Rl 

10$ 
50.EMSG50 



SETEXI 



CMP 


42, Ri 


BGE 


20$ 


ERRSF 


51.EMSG51 



BR 



SETEXI 



20$ 





ASL 


Rl 






ADD 


030$, Rl 






ADD 


CRD, PC 




30$; 










.WORD 


SET INI - 


30$ 




.WORD 


SET ADD - 


30$ 




.WORD 


SETKLD - 


30$ 


SETINIt 










hUV 


0-100, Rl 




10$: 










ADD 


#100, Rl 






BEQ 


20$ 






CMP 


0200, Rl 






BNE 


20$ 




• 


MOV 


XRGCUR.R] 


I 




MOV 


0-100, WRDCNT(Rl) 




CALL 


SETWRT 





P$POP RO 



20$; 
3-0$: 



BNE 
MOV 
MOV 
CALL 



P$POP 

BR 

MOV 
MOV 

INC 



SETEXI 

XRGCUR.R1 

73,WRDCNT(R1) 

SETWRT 



RO 
SETEXIT 

1.R2 
0N0ADR.R3 



SEQ 73 



j ASSUME ERROR 

; OEUNA ADDRESS TABLE (NOT NODE TABLE) 

l GET PARAMETER, BUT DON'T LOSE IT 

MOV (R5),R1 

l BRANCH IF NOT UNDER RANGE 

j REPORT RANGE UNDERFLOW 

TRAP C$ERSF 
.WORD 50 
.WORD EMSG50 
. WORD 



I CHECK UPPER LIMIT OF CASE OFFSET 
I BRANCH IF WITHIN RANG 
j REPORT RANGE OVERFLOW 



TRAP 


C$ERSF 


.WORO 


51 


.WORD 


EMSG51 


.WORD 






; LEAVE 

t TURN INTO WORD INDEX 
; POINT TO WORD OFFSET 

i go uo :t 

j OFFSET TO INITIALIZE 

j OFFSET TO SET DECNET MULTICAST 

j OFFSET TO KILL DECNET MULTICAST 

j GROUP POINTER 

; BUMP THE GROUP POINTER 

i IF ZERO. DO THE FIRST GROUP 

; HAVE THE TWO GROUPS BEEN WRITTEN? 

; BRANCH IF NOT 

j GET XMIT PACKET ADDRESS 
j WRITE ALL ADDRESSES 
{ WRITE THEM 

JSR 

.WORD 
j ANY ERROR 

MOV -(R5),R0 
i IF YES, GO WRITE THE ADDRESSES 
t ELSE, GET NXT XMIT DESCRIPTOR 
t WORD COUNT TO INIT THE MODE BITS 
{ WRITE THE PACKET 

JSR 

.WORD 
j GET STATUS 

MOV - C R5 ; , RO 

j LEAVE 



R4,PRF.G14 
SETWRT -ANCHOR 



P4.PREG14 

SETWRT -ANCHOR 



j INIT THE 
I POINT TO 



COl UMN POINTER 
MBZ AND PHYSICAL 



ADDRESSES 



R2 



i BUMP THE COLUMN POINTt'R 



J( 



} 
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3572 
3573 
3574 
3575 
3576 
3577 
3576 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 



3591 

3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 



3601 

3602 
3603 



072314 
072320 
072322 
070324 
072326 
072332 
072334 
072334 
072340 
072340 
072344 
072346 
072346 
072352 
072354 
072360 
072364 
072370 
072376 
072376 
072402 
072404 
072404 
072406 
072410 
072410 
072414 
072416 
072422 
072426 
072432 
072440 
072440 
072444 
072446 
072446 
072450 
072450 
072450 
072452 



022702 
001736 
005701 
001003 
022702 
103002 

012703 

004137 
000762 

012703 
005001 
012702 
004137 
013701 
012761 

004437 
001560 

014500 
000420 

012703 
005001 
012 702 
004137 
013701 
012761 

004437 
0015G0 

014500 



010025 
000207 



;Ag MACRO M1200 
5 IN QNA 



000010 

000002 

004010 
073006 

004032 

OOC004 
073006 
024220 
177706 

070656 



004010 

000004 
073006 
024220 
177706 

070656 



40$ 
50$ 



SETADD: 



000006 
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CMP 08., R2 

BEQ 10$ 

TST Rl 

BNE 40$ 

CMP 02, R2 

BHIS 50$ 

MOV 0PHYADR,R3 

JSR Rl.SETFIL 

BR 30$ 

MOV 0MCSTAD.R3 

CLR Rl 

MOV 04, R2 

JSR Rl.SETFIL 

MOV XRGCUR.R1 

MOV 0-72,WRDCNT(Rl) 

CALL SF.TWRT 



SETKLD: 



000006 



P$P0P RO 

BR SETEXI 

MOV 0PHYADR.R3 

CLR Rl 

MUV 04, H2 

JSR Rl.SETFIl. 

MOV XRGCUR.R1 

MOV 0-72,WRDCNT(Rn 

CALL SETWRT 

P$P0P RO 



SETEXI: 



SEQ 74 



j ADORESS COLUMNS - 7 INITIALIZED? 

; DO NEXT GROUP IF YES 

I IS THIS THE FIRST GROUP: 

; BRANCH IF NOT 

5 HAVE BASIC ADDRESSES BEEN WRITTEN? 

; BRANCH IF NOT 

j EISE, PHINT TO OUR PHYSICAL ADDRESS 

l FILL IN THE ADDRESS 
» GO DO NEXT COLUMN 

} GET DECNET MULTICAST ADDRESS 

I INIT GROUP POINTER 

j INIT COLUMN TO CORRECT SLOT 

j FILL IN THIS ADDRESS 

; GET CURRENT XMIT DESCRIPTOR 

i WRITE ADDRESSES ONLY 

j WRITE THE NEW ADDRESS TABU INTO QNA 

JSR R4.PHEG1-'- 
.WORD SETWRT -ANCHOR 

j GET THE RETURNED STATUS 

MOV -CR5),R0 

; LEAVE 

< 

; GET OUR PHYSICAL ADDRESS 

5 INIT GROUP POINTER 

t INIT ADDRESS COLUMN POINTER 

; FILL IN THIS ADDRESS 

it GET CURRENT XMIT DESCRIPTOR 

; WRITE ADORE SSES ONLY 

j WRITE THE NEW ADDRESS TABLE 

JSR R4.PREG14 
.WORD SETWRT -ANCHOR 
j GET THE RETURNED STATUS 

MOV -CR5),R0 



RETURN RO 



5 RETURN 



MQv 
RTS 



RO,(RSU 
PC 



«\ 
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SEQ 7b 



3605 












.SBTTL SETWRT - WRITE A SETUP PACKET 


3606 








» » 






360? 








FUNCTIONAL 


DESCRIPTION: 


3608 














3609 










THIS 


ROUTINE TAKES CARE OF WRITING SETUP PACKETS AND VERIFYING THAT 


3610 










ALL OF IT OCCURRED OKAY 


3611 














361.? 








CALLING SEQUENCE 


3613 














3614 










CALL 


SETWRT 


3615 














3616 








INPUT 






3617 














3618 










NONE 




3619 














3620 








IMPLICIT INPUT 


36 t ? 1 














3622 










NONE 




3623 














3624 








0U1PUT 




3625 














3626 










NONE 




3627 














3628 








IMPLICIT 0U1PUT 


3629 














36 30 










NONE 




3631 














3632 








COMPLETION 


CODES 


3633 














3634 










NONE 




3635 














3636 








SIDE 


EFFECTS 


3637 














3638 










NONE 




3639 














3640 








j REGISTERS USED 


3641 














3642 










Rl - 


HOLDS TRANSMITTED ADDRESS TABLE ADDRt SS 


3643 










R2 - 


HOLDS ADDRESS Of PACKET 


3644 










R3 - 


AND ADDRESS OF RECEIVED ADDRESS TABLE 


3645 
3646 










R4 - 


COUNT OF NUMBER OF BYTES TO CHECK 


364 7 








! DEBUG 






3648 














3649 










NONE 




3650 








.. _ 






3651 


072454 




i 


i r .TWRT : 




j WRITE NEW ADDRESS TABLE. INTO THE UN 


3652 


072454 


005200 






INC 


HO i ASS'.IME ERROR 


3653 


072456 


013704 


024224 




MOV 


XRGNXT.R4 ; GET DESCRIPTOR 


3654 


072462 


012764 


023570 000004 




MOV 


OTGrA0R,L0A0D(R4) 


3655 


072470 








CAl.l. 


XMIT OXMTStT { TRANSMIT THE PACKET 




072470 


012725 


000000 






MOV 3XMT5ET , tR'O* 




724 74 


004437 


070656 






JSR R4,Pmiil4 




072500 


002326 








.WORD XMIT ANCHOR 


3656 


O>2502 


00573 7 


050252 




TST 


FAlf'l.G i NON EXISTENT MEMORY? 


365' 


72506 


001407 






BEQ 


20$ j BRANCH IF NUT 


3656 


072510 






10$; 







VNIAAO 


Df.QNA NI EXERCISER OIAG 


ETWRT 


WRITE 


A SETUP 


PACKET 


3659 


072510 


005037 


050252 


3660 


072514 








0:2514 


104456 






072516 


000053 






072520 


065062 






072522 


000000 




3661 


072524 


000504 




3662 


072526 






3663 


072526 








072526 


014501 




366a 


072530 


001405 




3665 


072532 








072532 


104456 






072534 


0C0055 






072536 


065237 






072540 


000000 




3666 


072542 


000475 




3667 


072544 






3668 


072544 








072544 


004437 


070656 




072550 


003044 




3669 


072552 


005737 


050252 


3670 


072556 


001354 




3671 


072560 


005700 




3672 


072562 


001401 




3675 


072564 


000455 




3674 


072566 






3675 


072566 








072566 


014502 




36 76 


072570 


001005 




3677 


072572 








072572 


104456 






072574 


000056 






072576 


065303 






072600 


000000 




3678 


072602 


000455 




3679 


072604 






3680 


072604 


013702 


024226 


3681 


072610 


032762 


020000 


3682 


072616 


001005 




3683 


072620 








072620 


104456 






0/2622 


000057 






72624 


065366 






072626 


000000 




3684 


072630 


0004 33 




3685 


072632 






3686 


072632 


016401 


000004 


368/ 


0/2636 


016404 


000006 


3688 


0/2642 


005404 




3689 


072644 


006304 




3690 








3691 


072646 


016203 


000004 


3692 


072652 


120462 


000012 


3693 


072656 


001405 




3694 


0/2660 
072660 


104456 





L6 
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CL.R FATFLG 

ERPHRD 43.EMSG43 



20$: 



30$ 



40$ 



50$: 



000010 



60$; 



N.M. 



BR 


URTEXI 


P$POP 


Rl 


BEQ 
ERRHRD 


30$ 

4 5,EMSG45 



BR 


WRTEXI 


CALL 


RECEVE 


TST 

BNE 
TST 
BEQ 
BR 


FATFLG 

10$ 
RO 
40$ 
SETVAL 


P$POP 


R2 


BNF 
ERRHRD 


50$ 

46.EMSG46 



BR 



BR 



WRTEXI 



HOV RRGNXT.R2 

BIT 0MR5ETP.STATHR2) 

BNE 60$ 

ERRHRD 4 7.EMSG4 7 



SETVAL 



MOV 


L0ADD(R4),R1 


MOV 


WRDCNT(R4),R4 


NEG 


R", 


ASL 


R4 


ADD 


012, R4 


MUV 


LOADD(R2).H3 


CMPB 


R4.STAT2CR2) 


BEQ 


70$ 



SEQ 76 



CLEAR FATAL FRROR FLAG 
REPORT TIMEOUT 







TRAP 


c$f:rhrd 






.WORD 


43 






.WORD 


EMSG43 






.WORD 





LEAVE 








GET STATUS 










MUV 


■(R5), 


Rl 


CONTINUE IF 


OKAY 






REPORT XMIT 


ERROR 










TRAP 


CiERHRD 






.WORD 


45 






.WORD 


EMSG45 






.WORD 


O 


EXIT SETUP, 


FAILURE 


OCCURRED 





PACKET FOUND? 

JSh R4.PREG14 

.WORD RECEVE -ANCHOR 

NONE EXISTENT MEMORY ERROR? 

BRANCH IF YES 

DID AN ERROR OCCUR? 

BRANCH IF NOT 

EXIT SETUP, ERROR ALREADY REPORTED 

WERE ANY PACKETS RECEIVED 

MOV -<R5),R2 

BRANCH IF YES 

NO PACKET RECEIVED 

TRAP C$ERHRD 

.WORD 46 
.WORD EMSG46 
.WORD O 



GET ADDRESS OF THE 


PACKET 




SETUP 1 


3 ACKFT? 






BRANCH 


IF IT IS 






REPORT 


UNEXPECTED 


PACKET STATUS 






TRAP 


C $EPHRO 






.WORD 


4 7 






.WORD 


EMSG4 7 






.WORD 






ERRHRD 48,EMSG48 



EXIT 

GET XMI1TED ADDRESS TABLE- 
GET XMIT SIZE 

CONVERT FROM TWOS COMR..EMtN T 
TURN WORD COUNT TO BlTE COUNT 
COMPENSATE ^ OR GARBAGE Bl TES 
GET RECEIVED PACKET 
IS 1HL Sl/t THE SAMfc? 
BRANCH IF I] IS 
BYTE COUNT ERROR 

TRAP 



CSERMRU 
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072662 


000060 






072664 


065446 






072666 


000000 




369b 


072670 


000413 




3696 


072672 






3697 








3698 


072672 


006204 




3699 


072674 






3700 


072674 


022123 




3701 


072676 


001405 




3702 


072700 








072700 


104456 






072702 


000054 






072704 


065141 






072706 


000000 




3703 


072710 


000403 




3704 


072712 






3705 


072712 


005304 




3706 


072714 


001367 




3707 


072716 


005000 




3708 


072720 






3709 


072720 








072720 


012725 


024226 




072724 


012725 


000001 




072730 


004437 


070656 




072734 


006450 




3710 


072736 






3711 


072736 


013704 


024224 


3712 


072742 


012764 


024574 


3713 


072750 


005064 


000000 


3714 


072754 


005064 


000010 


3715 


072760 


005064 


000012 


3716 


072764 








072764 


012725 


024224 




072770 


012725 


000000 




072774 


004437 


070656 




073000 


006534 




3717 


073002 








73002 


010025 






073004 


000207 





BR 


SETVAL 


70$: 




i; N.M. SUB 


#12, R4 


ASR 


R4 


80$: 




CMP 


(Rn»,(R3)» 


BEQ 


90$ 


ERRHRO 


44.EMSG44 



BR 



SETVAL 



90$: 



SETVAL: 



DEC 


R4 


DNE 


80$ 


CLR 


RO 



CALL 



GETRNX 01,tfRRGNXT 



WRTEXI: 



000004 



MOV 
MOV 
CLR 
CLR 
CLR 
CALL 



XRGNXT.R4 

#XRG001.L0ADDCR4) 

FLAGCR4) 

STATKR4) 

STAT2CR4) 

GETXNX #0,#XRGNXT 



RETURN RO 



l EXIT 



SEQ 7 7 



.WORD 48 
.WORD EMSG48 
. WORD 



j REMOVE GARBAGE BYTE COUNT 

} TURN BYTE COUNT INTO WORD COUNT 



DOES XMITTED * 


RECEIVED? 




BRANCH IF NOT 






COMPARE ERROR 








TRAP 


C$ERHRD 




.WORD 


44 




.WORD 


EMSG44 




.WORD 






; LEAVE 

; DECREMENT THE BYTE COUNT 

l CHECK NEXT ADDRESS 

i SET SUCCESS CODE IN RO 

j REVALIDATE THE DESCRIPTOR 

I UPDATE NEXT AND PREVIOUS PACKET ADDRESS 

MOV #RRGNXT,(R5)* 
MOV 01.CR5)* 
JSR R4.PREG14 
.WORD GETRNX -ANCHOR 

j GET TRANSMIT PACKET ADDRESS AGAIN 

i RESET ADDRESS 

l REINIT THE DESCRIPTOR 



; GET NEXT XMIT BUFFER 



MOV 


0XRGNXT,(R5)* 


MOV 


iK),(R5)* 


JSR 


R4.PREG14 


.WORD 


GETXNX -ANCHOR 


RETURN WITH STATUS 




MOV 


R0.CR5)* 


RTS 


PC 



N6 
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SEQ 78 



3719 
3720 

3721 
3 1?2 
3723 

3 724 

3725 

3726 

3727 

3728 

3729 

3 730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3/42 

3743 

3744 

374 b 

3746 

3747 

3748 

3749 

3750 

3751 

3 752 

3753 

3 754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3 764 

3765 

3 766 

376 7 

3768 

3769 

3770 
3771 

3 7 72 
37 73 
37 74 
3 7 75 



.SBTTL SETFIL - FILL AN ADDRESS SLOT IN SETUP TABLE 

FUNCTIONAL DESCRIPTION: 

THIS 

BEGIN 

INIT THE ROW POINTER 

DO UNTIL 6 ADDRESS BYTES OF THE ADDRESS ARE WRITTEN 

ADD ROW NUMBER TO INDEX 

ADD COLUMN NUMBER TO INDEX 

ADD TABLE ADDRESS TO INDEX 

STUFF THE ADDRESS BYTE IN 
ENDDO 

BUMP ROW POINTER 

STUFF A ZERO INTO THIS BYTE (MBZ) 
BUMP ROW POINTER 

STUFF A ZERO INTO THIS BYTE (MBZ) 
RETURN FROM SUB 
END 

1 CALLING SEQUENCE 



JSR 



PC, SETFIL 



INPUT 



Rl - GROUP POINTER 

R2 - COLUMN POINTER 

R3 • POINTER TO NI ADDRESS 

R4 - ROW POINTER 



IMPLICIT INPUT 

NONE 
OUTPUT 

NONE 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 



Rl - INDEX 

R2 • ADDRESS COLUMN POINTER 

R3 ■ POINTS TO GRUUP r OF ADDRESSES 



B/ 



CVNIAAO 
SETFIL 

5 .* lb 
3777 
37 7tf 
57 79 

5780 
?7<n 
3782 
3783 
3784 
3785 
3786 
3787 
3788 

3 789 

3790 

3 79'1 
3 79,2 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3601 
3802 
3803 

7*804 
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0'3006 
73006 
073012 
073014 
073016 
073016 
073020 
073022 

073026 
073026 
073030 
073034 
073036 
073040 
073042 
073042 
073044 
73050 
073054 
073060 
073060 
073062 



012704 
060204 
061604 

010146 
010401 
062701 



112314 
062704 
020401 
003001 
000772 

111314 
112714 
062 704 
112714 

012601 
000201 



DEBUG 



R4 



NONE 



ADDRESS ROW POINTER 



023570 



000050 



000010 



000000 
000010 
000000 



1 INIT 


THE ROW 


POINTER 


j DO WHILE 6 


ADDRESS BYTES OF THE 


SETFIL! 










MOV 




0TGTADR.R4 , 




ADD 




R2,R4 i 




ADD 




(SP),R4 , 




PUSH 




Rl t 




MOV 




R4.R1 j 




ADD 




040..R1 i 


10*! 










MOVB 




(R3)*,(R4) j 




ADD 




«fl,.R4 i 




CMP 




R4.R1 , 




BGT 




20$ , 




BR 




10$ i 


20$: 










MOVB 




(R3),(R4) , 




MOVB 




<K),(R4) j 




ADD 




08., R4 , 




MOVB 




00.CR4) i 




POP 




Rl i 



SEQ 79 



RTS 



Rl 



ADDRESS ARE TO BE WRITTEN 

SET ROW POINTER TO DESTINATION TABLE 

ADD COLUMN TO IT 

ADD SAVED GROUP TO IT 

SAVE RETURN ADDRESS 

MOV Rl, (5P) 
INIT LIMIT TO CURRENT ADDRESS 
UPPER LIMIT C5 ADRS BYTES ♦ 6 BYTE OFFSET TO 
NEXT ROW) 

STUFF THE ADDRESS BYTE IN 

ELSE. POINT TO NEXT ROW IN THE COLUMN 

HAVE ALL ADDRESSES BEEN WRITTEN 

BRANCH IF YES 

ANO STUFF IT IN 

STASH LAST ADDRESS BYTE 
NEXT BYTE MBZ 
POIN! TO NEXT BHF 
NEXT BYTE MB/ 
RESTORE RETURN ADDRESS 

MOV (SP)sRl 
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5EQ 80 



380* 

380/ 

5808 

3809 

3810 

3811 

3812 

381? 

3814 

3815 

3816 

3817 

3818 

381* 

3820 

3821 

3822 

3823 

3024 

3825 

3826 

382. 

3828 

3829 

3830 

3831 

3832 

3853 

38 34 

"^835 

3856 

3837 

3838 

3839 

3840 

3841 

3842 

384 3 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

385? 

3854 

3855 

385b 

385/ 

3858 

3859 

3860 

3861 

386<i 



073064 
073064 

073066 
073070 
073074 
073100 
075104 
073106 
073112 
073114 
07311*: 
073120 
073122 
073126 
073134 



.SBTTL QNA INTERRUPT SERVICE ROUTINE 
FUNCTIONAL DESCRIPTION: 

THIS IS THE INTERRUPT SERVICE ROUTINE 
CALLING SEQUENCE 

NONE 
INPUT 

NONE 
IMPLICIT INPUT 

NONE 
OUTPUT 

NONE 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

NONE 



010146 
010346 
013701 
016103 
032703 
001403 
005237 
0004 36 

032703 
001425 
005257 
052757 
013761 



DEBUG 



QNAISR 



NONE 



0477 72 
000016 
000004 

050252 



100000 

050256 
100000 
050246 



10$ 



050246 
000016 



MOV 


R 1 , ( SP t 


MOV 


R3, -(SP"> 


MOV 


QNAAD0.R1 


MOV 


CSRCR1 ),R3 


BIT 


0MNXM.R3 


BEQ 


101 


INC 


fatflg 


BR 


40$ 


BIT 


0MRCVIN.R3 


Bt-Q 


20$ 


INC 


NIRCNT 


BIS 


OMRCVlN.CSRHUf 


MQV 


csrbuf.csrcri: 



SAVE Rl 

*GET QNA ADDRESS 
ANO ITS CSR CONTENTS 
INTERRUPT RESULT OF MEMQR* 

SET FL AG 

CONTINUE 



TIMEOUT? 



RECV INTERRUPT ?? 

NO 

lES, SET Fi.AG 

SF l RECEIVER DOW 

WRITE IT TO REARM 



Rl r IN Rit'i-'ERED C^R 
INTERRUPTS 



D/ 



mum mimfflM* MncR0 m20 ° 



3863 


073142 


042737 


100000 050246 


3864 


0^3150 


032703 


000040 


3865 


073154 


001405 




3866 


073156 


012761 


024260 000004 


386 7 


0/3164 


005061 


000006 


3868 


073170 






3869 


073170 


032705 


000200 


3870 


073174 


001403 




3871 


073' 76 


005037 


050260 


3872 


0732-0? 


000404 




38/3 


073?04 






3874 


073204 


005237 


050266 


3875 


073210 






3876 


073210 


005237 


050270 


3877 


073214 






3878 


073214 


012603 




38 79 


073216 


012601 




3880 


073220 


000002 




3881 









200 
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BIC 


OMRCVIN.CSRBUF 




BIT 


0MINVRC.R3 




BEQ 


20$ 




MOV 


ORRING.LORCV(Rl) 




CLR 


HIRCV(Rl) 


20$ i 








BI1 


*MXMTIN,R3 




BEQ 


30$ 




CLR 


XfLAG 




BR 


50$ 


50$: 








INC 


BCOUNT 


40$: 








INC 


ERRELG 


50$: 








MOV 


(SP)*,R3 




MOV 


(SP)*,Rl 




RTI 





SEQ 81 



CLEAR THE BIT 

RECEIVE I 1ST INVALID? 

NO 

SET LOW ADDRESS OF RINGS 

CLEAR UPPER ADDRESS BITS 

TRANSMIT INTERRUPT ?? 

NO 

YES, INDICATE THAT XMIT HAS OCCURRED 

LEAVE 



} ELSE, NONSENSE INTERRUPT 



i RESTORE REGISTERS 
t RESTORE REGISTERS 
i AUf WIEDERSEHEN 
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SEQ 82 



383? 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

38^1 

3892 

3893 

389<4 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

390 7 

3908 

3909 

3910 

3911 

391? 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

392/ 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3945 

3936 

393 7 

3938 

3939 



.SBTTL XMIT - TRANSMIT QNA PACKETS 



073222 
073222 
073226 
073226 
73234 
073242 
073242 
073246 
073250 
073252 
073256 
073260 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE SETS UP THE TRANSMIT DESCRIPTOR RING ENTRIES AND WRITES 
THE RING ADDRESS INTO THE TRANSMIT LOW AND HIGH ADDRESS REGISTERS TO 
START TRANSMISSION. 



CALLING SEQUENCE 

CALL XMIT 0XMTSET OR &XMTDAT j 
P$POP PI 

INPUT 

NONE 
IMPLICIT INPUT 

NONE 
OUTPUT 

PI - STATUS - - SUCCESS, -I FOR FAILURE 
IMPLICIT OUTPUT 

NONE 

COMPLETION CODES 

- SUCCESS 
-1 • FAILURE 

SIDE EFFECTS 

NONE 

REGISTERS USED 



XMTSET - SETUP, XMTDAT * DATA 



DEBUG 



005037 050274 



012737 
012737 

013704 
005714 
001405 
005764 
001002 
000137 



000020 
000020 

024220 



000010 
073650 



002402 
002404 



XMIT 
10$: 

20$: 



NONE 



CLP 

MOV 
MOV 

MOV 
fST 

be a 

T'jT 
BNE 

JMP 



RETRYS 

016, .l.SRTRY 
016. .NCRTRY 

XRGCUR.R4 

CR4) 

30$ 

STATKR4) 

30$ 

160$ 



SET CARRIER LOSS RETRY COUNT 
SET NO CARRIER RETRY COUNT 

MOVE RING ENTRY LOCATION INTO R4 

MAKE SURE WE OWN THIS 

BRANCH IF WE DO 

ELSE. SEE IF STATUS IS WRIHEN 

IF YES, CONTINUE 

ELSE REPORT THAT QNA STILLS OWNS IT 



F V 
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SEQ 83 



3940 
3941 

3942 

3943 

3944 

3945 

3946 

394 7 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

397? 

3973 

3974 

3975 

3976 

397 7 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 



073264 

073264 

073264 

073266 

073270 

073276 

073304 

073306 

073306 

073312 

073314 

073322 

073326 

073332 

073336 

073342 

073346 

073350 

073352 

073354 

073354 

073362 

073370 

073370 

073374 

073400 

073404 

073412 

073416 

073424 

073424 

073432 

073434 

073440 

073442 

075444 

073444 

073450 

073454 

073460 

073464 

073464 

073470 

073472 

073476 

073500 

073502 

073502 

073504 

073506 

073510 

0/3510 

073516 

073524 

073532 

073536 

073540 



30$: 



014501 
001007 
012764 
012764 
000431 

005737 
001020 
013764 
006264 
005464 
016402 
062702 
0i2703 
012322 
012322 
012322 

012764 
012764 

005064 
005064 
005064 
012737 
013703 
012737 

032763 
001004 
005737 
001371 
000514 

010463 
005063 
012701 
012711 

005737 
001407 
005/37 
001401 
000503 

005711 
001367 
0004 72 

052737 
013763 
042737 
005764 
001444 
032764 



130000 000002 
023570 000004 



003202 

050332 000006 

000006 

OOOOGb 

000004 

000006 

004010 



120000 000002 
024574 000004 

000000 

OOOC10 

000012 

000001 050260 

047772 

001130 003760 

000020 000016 

003760 



000010 
000012 
003760 
001130 

050260 

050252 



40$ 



45$: 
50$; 



60$: 



70$: 



80$: 



000200 050246 

050246 000016 

000200 050246 
000010 

0100QO O00OQ2 



90$: 



100$; 



P$POP 

BNE 
MOV 
MOV 
BR 

TST 
BNE 
MOV 
ASR 
NEG 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 

CLR 
CLR 
CLR 

MOV 
MOV 
MOV 

BIT 
BNE 
TST 
BNE 
BR 

MOV 
CLR 
MOV 
MOV 

TST 
BEU 
TST 
BEG 
BR 

TST 
BNE 
BR 

BIS 
MOV 
BIC 
TST 
BEQ 
BIT 



Rl i GET XMIT TYPE 

MOV -CR5),R1 
40$ i BRANCH IF NOT A SETUP PACKET 

OMVALIDJME0MJMXSETP.DESCCR4) , SET DESCRIPTOR BITS 
OTGTADR.L0ADDCR4) j SET BUFFER ADDRESS 
50$ 



RSPFLG , 

45$ | 

BUFLEN.WRDCNTCR4) , 

WRDCNTCR4) j 

WRDCNTCR4) , 

L0ADD(R4),R2 ; 

*6,R2 ; 

*PHYADR,R3 i 

(R3)*,(R2)» ; 

(R3)»,(R2)» } 

CR3)*,CR2)» s 

OMVALID i MEOM , UE jC( R4 ) 
0XRG001.LCADDCR4) 

FLAGCR4) 
STAT1CR4) 
STAT2CR4) 
•l.XFLAG 

QNAAD0.R3 
01130, TIMER2 

*MINVXM,CSR(R3) 

70$ 

TIMERS 

60$ 

180$ 

R4.L0XMTCR3) 
HIXMKR3) 
0TIMER2.R1 
01130.CR1) 

XFLAG 

100$ 

FATFLG 

90$ 

190$ 



ARE WE IN LISTEN/RESPOND MODE? 

BRANCH IF YES, JUST VALIOATE AND XMIT 

BUF LENGTH TO FIRST WORD OF NEXT RING 

TURN IT INTO A WORD COUNT 

TUO'S COMPLEMENT THE COUNT 

GET ADDRESS OF BUFFER 

POINT TO SOURCE ADDRESS FIELD 

POINT TO OUR PHYSICAL ADDRESS 

FILL IN FIRST TWO ADDRESS BYTES 

ANO NEXT TWO ADDRESS BYTES 

AND NEXT TWO ADDRESS BYTES 



i SET VALID BIT 

I SET BUFFER ADDRESS 

I CLEAR FLAG WORD 

; CLEAR STATUS WORD 1 

; CLEAR STATUS WORD 2 

j SET TRANSMIT FLAG 

j GET DEVICE ADDRESS 

5 SET TIMER 



i 



(Rl) ; 

80$ i 

180$ j 

OMXNTIN»CSRBUF t 

>:SRBUF # CSR(R3) j 

v>MXMTIN,CSRBUF , 

STAT1(R4 > ) j 

160$ 

«MXSETp,utbCCR4) \ 



IS XMIT LIST INVALID? 

YES, CONTINUE 

TIMEOUT YET 

NO 

TIMEOUT, REPORT ERROR AND LEAVE 



; LOW ADDRESS OF XMIT BUFFER 

; START TRANSMISSION 

j SET VP TO WAIT FOR TRANSMIT TO COMPLETE 



i SEE IF TRANSMIT DONE BIT 

; IK SET, SKIP WAIT LOOP 

j NON EXISTENT MEMORY? 

; BRANCH IF NOT 

j LEAVE ROUTINE 



SET 



ELSE 

NO, 
YES 



SEE IF TIMEOUT YET 

WAIT 
EXIT 



SET XMIT DONE BIT IN BUFFERED CSR 

REARM XMIT INTERRUPTS 

CLEAR THE BIT IN BUFFERED CSR 

SEE WHO OWNS THIS ENTRl 

IF QNA STILL OWNS THIS, SOMETHING IS WRUNG 

SETUP PACKET? 



G7 
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SEQ 84 



3996 
3997 



3998 
3999 
4000 
4001 
4002 



4003 
40O4 
4005 
4006 
400 7 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 



4017 
4018 
4019 



4020 
4021 
4022 
4023 



073546 
073550 
073550 
073554 
073556 
073562 
073564 
073564 
073572 
073574 
073574 
073574 
073600 
073604 
073610 
073612 
073614 
073616 
073616 
073624 
073626 
073626 
073632 
073640 
073642 
073644 
073644 
073650 
073650 
73650 
073652 
073654 
073656 
07 3660 
073662 
073662 
073662 
073664 
073666 
073670 
073672 
073674 
073674 
073700 
073700 
073702 
073704 
073706 



001006 

012725 
010425 
004437 
003736 

032764 
001011 



012725 
012725 
004437 
006534 
005003 
000437 

032764 
001763 

005237 
022737 
1^0001 
000754 



O00001 
070656 

040000 000010 



024220 
000000 
070656 



016000 000010 



050274 

000003 050274 



BNE 
CALL 



105$ 
BMPCNT 



R4,tfBMPXMT 



105$: 
110$: 



000137 073370 



104455 
000012 
063670 
070306 
000413 



104455 
000014 
063670 
070306 
000406 

005237 

104456 
000010 
063605 
070306 



120$ 
140$ 

150$ 

160$ 



170$ 



BIT 

BNE 

CALL 



CLR 
BR 

BIT 
BEQ 

INC 
CMP 
BPL 
BR 

JMP 



180$: 



0MXERRS.STATKR4) 
120$ 

GETXNX #0,ffXRGCUR 



R3 
200$ 



i BRANCH IF 17 IS. WE DON'T COUNT SETUP STATISTICS 
j ELSE, GO UPDATE THE COUNTERS 

MOV OBMPXMT, CR5)* 

MOV R4,;'R5)* 

JSR R4,PREG14 

.WORD BMPCNT -ANCHOR 

j SEE IF ANY ERRORS 

{ IF YES, BRANCH AND TAKE CARE OF THEM 

j UPDATE "TRANSMIT RING CURRENT" POINTER 



MOV 
MOV 
JSR 
.WORD 

; INDICATE SUCCESS 

j RETURN 



4XRGCUR.CR5)* 
00.CR5)* 
R4.PREH14 
GETXNX-ANCHOR 



*MABORT!ML0SS!MN0CAR,STATl(R4) , 
110$ » BRANCH 



WAS MESSAGE STILL SENT? 
IF YES, DO NEXT ONE 



RETRYS 
03.RETRYS 
150$ 
110$ 

50$ 



j LET'S TRY IT AGAIN, KEEP COUNT OF THEM 
I HAVc WE RETRIED THREE TIMES YET? 
I IF NOT, THEN LET'S RETRANSMIT 
i ELSE, CLEAN UP AND LEAVE 



ERRDF 10,EMSG10,ERR1 



BR 190$ 

ERRDF 12.EMSG10.ERR1 



BR 190$ 

INC riMOUT 
ERRHRD 8.EMSG08.ERR1 



j TRY AGAIN 
i TRANSMIT RING 



B00KKEEPT4G ERROR 

TRAP C$ERDF 
.WORD 10 
.WORD EMSG10 
.WORD ERR1 



j BOOKKEEPING ERROR. XRGNXT SHOULD - XRGCUR 

TRAP C$ERDF 
.WORD 12 
.WORD EMSG10 
.WORD ERR1 



j REPORT ERROR 



TRAP 


CiFRHRD 


.WORD 


8 


.WORD 


EMSG08 


.WORD 


ERR1 



H7 



^ aao tR»Y 
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4024 073710 






190$ s 








4025 073710 


012703 


177777 




MOV 




0-1.R3 


4026 073714 






200$ : 








4027 073714 


005064 


000000 




CLR 




FLAG(FM) 


4026 073720 


005064 


000010 




CLR 




STATKR4) 


4029 073724 


005064 


000012 




CLR 




STAT2CR4) 


4030 073730 


005064 


000002 




CLR 




DESCCR4) 


4031 073734 








RETURN 


R3 


073734 


010325 












073736 


000207 













SEQ 85 



j ERROR INDICATOR 



l CLEAR 

i CLEAR 

} CLEAR 

» INVALIDATE 

: RETURN 



FLAG WORD 
STATUS WORD 1 
STA1US WORD 2 

THE DESCRIPTOR 



MOV 
RTS 



R3.CR5)* 
PC 



1/ 
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SEQ 86 



4035 

4054 

4035 

4036 

4037 

4033 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

404 7 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 



073740 
073740 
073742 
073744 
073744 
073750 
073752 
073756 
073756 
073762 
073766 
073770 



005000 
005002 

005737 
001002 
000137 

013704 
C16401 
001002 
000137 



050256 
074626 

024222 

000010 

074606 



\ 



.SBTTL RECEVE - RECEIVE QNA RING BUFFERS 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE TAKES INCOMING DATA BUFFERS FROM THE QNA AND CHECK FOR 
ERRORS, THIS PROCESS CONTINUES FOR ALL COMPLETED BUFFERS 



CALLING SEQUENCE 



ca.L 

P$POP 



RECEVE 
PI 



INPUT 

NONE 

IMPLICIT INPUT 
i NONE 
i OUTPUT 

! NUMBER OF PACKETS PROCESSED By THIS ROUTINE 
! IMPLICIT OUTPUT 



NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

NONE 



t DEBUG 



NONE 



RECEVE: 








Cl.R 


RO 




CLR 


R2 


10$: 








tst 


NIRCNT 




BNt 


20 i 




JMP 


180$ 


20$ J 








MOV 


RRGCUK.R4 




MOV 


STATUR4),R1 




BNE 


30 1 




JMP 


160$ 



j Si. T STATUS TO SUCCESS 

i CLEAR PACKETS HANDLED COUN T ER 

I SEF IF AN> PACKETS TO RECEIVE 

I IF IfcS, CONTINUE 

} ELSE. EXIT 

t MOVb CURRENT RCV RING POINTER TO R4 

j MOVF STATUS OF PACKET TO Rt 

1 BRANCH IF UE OWN IT 

j STILL OWNED Qt UNA* ERROR 



J/ 
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4090 
4091 
409,? 

4093 
4094 
4095 



4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 



4U0 
4111 
4112 
4113 
4114 
4115 



4116 
4117 
4116 
411*9 
4120 
4121 
4122 
4123 
4124 
4125 
412b 
4127 



4128 
412 f > 
4130 



073774 
073774 
074002 
074004 
074010 
074010 
074010 
074014 
074016 
074022 
074024 
074050 
074034 
07403b 
074042 
074044 
074052 
074054 
074062 

074064 
074064 
074070 
074072 
0/4072 
074074 
074076 
074100 
074102 

074106 
074106 
074112 
074114 
074114 
074116 
074120 
074122 
074124 

0/4130 

074130 
074134 
074136 

074144 
074146 
074154 
074156 
074160 
0/4160 
074160 
0/4162 
074164 
074166 

074170 
074170 



032764 020000 000O10 

001402 

000137 074560 



012725 000000 

010425 

004437 070656 

003736 

016403 000004 

005737 002200 

001035 



023713 004010 

001010 

023763 004012 

001004 

023763 

001411 



032701 004000 
001037 

104456 
000075 
066412 
000000 
000137 074544 



032701 004000 
001451 



104456 
000066 
065773 
000000 
000137 



023713 
001011 
023763 
001005 
023763 
001001 
000427 



104456 

000104 
06/121 

000000 



010403 



074544 



004032 



30$ 



32$ 
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BIT 0MRSETP.STATKR4) 

BEQ 32* 

JMP 150$ 

CALL BMPCNT R4,tfBMPRCV 



000002 



004014 000004 



350$: 



MOV 


L0ADD(R4),R3 


TST 


BLDFLG 


BNE 


321$ 


CMP 


PHYADR,(R3) 


BNE 


350$ 


CMP 


PHYADR*2,2(R3) 


BNE 


350$ 


CMP 


PHYADR*4,4(R3) 


BEQ 


380$ 


BIT 


*MRUNT,R1 


BNE 


322$ 


ERRHRD 


61.EMSG61 



380$ 



321$ 



004034 000002 
004036 000004 



35$: 



JMP 130$ 



BIT 0MRUNT.R1 

BEQ 36$ 

ERRHRD 54.EMSG54 



JMP 130$ 



CMP MCSTAD.(RS) 

BNE 35$ 

CMP MCSTAD»2,2(R3) 

BNE 35$ 

CMP MCSrAl)*4,4' v R3) 

BNE 35$ 

BR 38$ 

ERRHRD 68,EMSG68 



SEQ 87 



i 


WAS A SETUP PACKET RECEIVED? 


• 


BRANCH IF NOT 


i 


ELSE, LEAVE 


» 


UPDATE COUNTERS FOR RECEIVE 




MOV *6MPRCV.CR5)* 




MOV R4.CR5)* 




JSR R4.PREG14 




.WORD BMPCNT- ANCHOR 


! 


MOVE BUFFER ADDRESS INTO R3 


i 


ARE WE IN BUILD MODE? 


• 


BRANCH IF WE ARE 


• 


CHECK TO SEE IF THE DESTINATION ADDRESS 



IS OURS 



j BRANCH IF NOT 

i CHECK NEXT WORD OF ADDRESS 

j BRANCH IF NOT OURS 

; CHECK FINAL ADDRESS WORD 

; BRANCH IF EVERYTHING IS OKAr 

11 N.M. 

i RUNT PACKET 

; IF YES, THROW OUT THE PACKET. 

j REPORT UNKNOWN RECEIVER ERROR 

TRAP 
.WORD 
.WORD 
.WORD 
i CONTINUE 



C$ERHRD 
61 

EMSG61 




u N.M. 






i RUNT PACKET 






; BRANCH IF NOT 






i REPORT THE ERROR 








TRAP 


CtERHRD 




.WORD 


54 




.WORD 


FHSG54 




.WORD 






: CONTINUE 



j SEE if- CONSOLE ID HUL.ITCAST IS DESTINATION 

; IF NOT, REPORT ERROR 

j SEE IF CONSOLE ID MU.HCAST IS DESTINATION 

: F NOT, REPORT ERROR 

j SEE IF CONSOLE ID MULUCAST IS DESTINATION 

j Jf NOT. REPORT ERROR 

j ITS A OKA> , MOVE ON 



; ELSE, REPORT THE ERROR 



TRAP C1ERHR0 

. WORD tS 

.WORD E^SGbtf 

.WORD 



322$ i 



MOV 



R4.R3 



} GET DESCRIPTOR ADDRESS 
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4131 
4152 
4153 

4134 
4135 
4136 
4137 
4138 
4139 
4140 

4141 
4142 
4143 
4144 
4145 
4146 
4147 
4118 
4149 
4150 
4151 
415? 
4153 
4154 
4155 
4156 
4157 
4158 



4159 

4160 
4161 
4162 
4163 
4164 
4165 
4 166 



4167 
4168 
4169 



4W0 
41/1 
41 72 
41/5 
4174 
417S 



074172 
074176 
074200 
074204 
074206 
074206 
074212 
074212 
074216 
074220 

074226 

074230 

074254 

074234 

074236 

074236 

074244 

074246 

074252 

074254 

074260 

074262 

074266 

074270 

074272 

074272 

074276 

074300 

074300 

074502 

074 304 

074 306 

074310 

074312 

074314 

074314 

0/4322 

074524 

074524 

074532 

074552 

074556 

074542 

074546 

074550 

074554 

074556 

0/4556 

0/4562 

74366 

0/4 572 

74 574 

074 3 74 

0/4400 

74402 

0/4402 

074406 



025703 
001003 
013705 
000402 



024232 
024216 



062 703 000014 
000010 
000001 050256 



005763 
001406 
022737 



001002 
005237 

000453 

026357 
001025 
062703 
062505 
022715 
001004 
005757 
001416 
000444 

022715 
001441 

104456 
000064 
065655 
000000 
005200 
000545 

026337 
001427 



012725 
004437 
006450 
0204 5 7 

001007 

012725 

012725 
0044 5 7 
006450 

00533/ 
000510 

052701 

001462 



36$: 
37$: 



050256 

000014 050306 
000016 
000002 
003202 

000001 



575$ 

38$: 



45$ 



l< 1 
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CMP RRGLST.R3 

BNE 36 i 

MOV RRGSRT.R3 

BR 37$ 

ADD *14, R3 

1ST STATUR3) 

BEQ 375$ 

CMP tl.NIRCWl 

BNE 375$ 

INC NIRCN T 

BR 50$ 

CMP PR0T0T(R5),PR0TOO 

BNE 40$ 

ADD #FASKIP,R3 

ADD (R3)».n3 

CMP $F0RWRD,(R5) 

BNE 45$ 

1ST RSPFLG 

BEQ 50$ 

BR 60$ 

CMP *REPLY,<R3) 

BEQ 60$ 
ERRHRD 52.EMSG52 



000014 050510 



000001 000002 

024222 
000000 
070656 

024226 



024226 
000001 
070656 



050256 



040000 





INC 


RO 




BR 


180$ 


40$: 








CMP 


PR0T0T(R3),PROTO2 




BEQ 


60$ 


50$: 








MOV 


01.DFSCCR4) 




CALL 


GETRNX OO.GRRGCUR 



CMP 
BNE 
CALL 



R4.RRGNXT 

55$ 

GETRNX n.tfRRGNXT 



55$: 








DK 


NIRCNT 




BR 


1 70$ 


60$: 








HLI 


#MRI : HRS|R1 




BEQ 


140$ 



SEQ 88 



{ IS THIS THE LAST DESCRIPTOR? 

x BRANCH IF NOT 

i OTHERWISE, GET ADDRESS OF FIRST DESCRIPTOR 



j POINT TO NEXT DESCRIPTOR 

; HAS THE NEXT DESCRIPTOR BEEN USED? 

, BRANCH IF NOT 

: IF IT IS USED. DO WE RECORD ONL.r THE BOGUS RECEIVE 

l HRANCH r r THE GOOD AND THE BAD HAS BEEN RECORDED 
j t;L-i:, v*1P COUNT SO WE DON'T MISS GOOD PACKET 

? .'■^:.. J ! THE PACKET OUT 

; SEE IF IT IS A LOOP SERVER TYPE CODE 

: IF NOT, CONT. 

t POINT TO SKIP COUNT 

I ADD SKIP COUNT TO DATA POINTER 

} NEED TO FORWARD MESSAGE? 

l IF NOT, MOVE ON 

j ELSE, ARE WE ACTING AS A RESPONDER? 

} IF NOT, JUST THROW IT OUT 

j ELSE. GIVE IT TO THE CALLING ROUTINE 

; ELSE, IS THIS A REPLY MESSAGE 

; BRANCH IF YES 

j ELSE REPORT ERROR 

TRAP 

,WORD 

.WORD 

.WORD 
} PUT FAILURE STATUS INTO RO 
: LEAVE 



C$f RHRD 
52 

EMSG52 




ELSE CHECK FOR CONSOLE TYPE CODE 
IF OK, CONT. 

MARK IT AS A THROW AWAY 

AND THROW IT OUT 

MOV $RRGCUR.(R5)» 
MOV 00, (R5)«- 
JSR R4,PREG14 
.WORD GETRNX ANCHOR 

IS THE CURRENT POINTER SAME AS NEXT? 

BRANCH IF NOT 

ELSE. UPDATE NEXT POINTER AS WELL 

MOV $RRGNXT,(R5)> 
MOV 3I.fR5)* 
JSR R4.PRFG14 
.WORD GETRNX -ANCHOR 

DECREMENT RECEIVE COUNTER 
EXIT 

SEt IF ANi ERRORS 
BRANCH IF NUT 



L7 



CVNIAAO 
RECfcVfc. 



4176 
417 7 
417b 



4179 

4180 
4181 
4182 
4183 
4184 
4185 
4186 



4187 
4188 
4189 
4190 
4191 



4192 
4193 
4194 
4195 



419b 
4197 
4198 
4199 
4200 



4201 
4202 
4^03 



4204 
4205 
4206 
420/ 
4208 



DEQNA NI 
RECEIVE 

074410 

074414 
074416 
074416 
074420 
074422 
074424 
074426 

074430 

074430 

074434 

074436 

074442 

074444 

074444 

0/4446 

074450 

074452 

074454 

074456 

074456 

074462 

074464 

074464 

074466 

074470 

074472 

074474 

074474 

0/4500 

74502 

74502 

0745O4 

74506 

074510 

0/4512 

074514 

0/4514 

0/4520 

074522 

0/4522 

074524 

074526 

0/4530 

074532 

074534 

0/4534 

0/4534 

074536 

074540 

074542 

074544 

74544 

74 550 

0/4552 

074554 
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SF.Q 89 



032701 
001005 

104456 
000065 
065721 
000000 
000446 



032701 
001447 
032701 
001405 

104456 
00006/ 
066063 
OOOOOO 
000433 

032701 
001414 

104456 

000070 
066116 
OOOOOO 

032701 
001405 

104456 
000071 
06615? 
OOOOOO 
000414 

0V701 
001405 

104456 
000074 
066344 
OC )000 
000404 



104456 
0000 75 
066412 
OOOOOO 

00523/ 
005200 
00C664 



034007 



010000 
000001 



80$: 



000002 



90$: 



000004 



100$ 



110$ 



000010 



120$ 



050276 



130$ 



140$ 



BIT *MRSETP!MDISC!MFRAM!MCRC!M0VF!MRUNT,R1 ; WAS THE PACKET TOO LARGE. 

BNE 80$ 

ERRHRD 53.EMSG53 



BR 130$ 



BIT 


«MDISC,RI 


BEQ 


140$ 


BIT 


4M0VF.R1 


BEQ 


90$ 


ERRHRD 


55,EMSG55 



BR 

BIT 
BEQ 
ERRHRD 



BIT 
BEQ 
ERRHRD 



BR 

BIT 
BEQ 
ERRHRD 



BR 
ERRHRD 



130$ 

0HCRC.R1 

110$ 

56.EMSG56 



OMF'RAM.Rl 

110$ 

57.EMSG57 



130$ 

0MSH0RT.R1 

120$ 

60.EMSG60 



130$ 
61.EMSG61 



INC 


RCVERR 


INC 


RO 


BR 


50$ 



j BRANCH IF NOT 






} REPORT THE ERROR 








TRAP 


C$ERHRD 




.WORD 


53 




.WORD 


EMSG53 




.WORD 






! CONTINUE 








j ARE THERE ANY OTHER 


VALID ERRORS? 


; BRANCH IF NOT 








; OVERFLOW? 








; BRANCH IF NOT 








5 REPORT OVERFLOW ERROR 








TRAP 


C$ERHRD 






.WORD 


55 






.WORD 


EMSG55 






.WORD 





{ BRANCH 








; CRC ERROR? 








; BRANCH IF NOT 








j ELSE REPORT IT 












TRAP 


C$ERHRD 






.WORD 


56 






.WORD 


EMSG56 






.WORD 





; WAS FRAMING ERROR 


ALSO SET? 




i BRANCH IF NOT 








} REPORT THE ERROR 












TRAP 


C$ERHRD 






.WORD 


5/ 






.WORD 


EMSG57 






.WORD 





I CONTINUE 








j PACKET LESS THAN 


10 


BYTES? 




: BRANCH IF NOT 








; REPORT IT 












TRAP 


CiERHRD 






.WORD 


60 






.WORD 


EMSG60 






.WORD 





l REPORT UNKNOWN RECEIVER ERROR 








TRAP 


LSLRHRD 






.WORD 


(■L 






.WORD 


EMSGbl 






.WORD 






i ELSE, INCREMENT RECEIVE ERROR C0UN1ER 

j SET STATUS TO FAIl URE 

I UPDATE POINTERS AND RETURN 



M7 
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SEQ 90 



4209 


074554 


005237 


050300 


4210 


074560 






4211 


074560 


005202 




4212 


074562 


005337 


050256 


4213 


074566 








074566 


012725 


024222 




074572 


012725 


000000 




074576 


004437 


070656 




074602 


006450 




4214 


074604 


000406 




4215 


074606 






4216 


074606 


012700 


000002 


4217 


074612 








074612 


104455 






074614 


000013 






074616 


063735 






074620 


070306 




4218 


074622 






4219 


074622 


005064 


000002 


4220 


074626 






4221 


074626 








074626 


010225 






074630 


000207 





150$: 



160$: 



INC RCVBUF 

INC R2 

DEC NIRCNT 

CALL GETRNX #0,#RRGCUR 



BR 170$ 



170$: 
180$ i 



I INCREMENT GOOD BUFFERS RECEIVED COUNTER 

j KEEP COUNT OF HOW MANY BUFFERS RECEIVED 
{ KEEP BOOKKEEPING IN ORDER 
: UPDATE "RECEIVE RING CURRENT" POINTER 

MOV #RRGCUR,(R5)f 

MOV 00, (R5)* 
JSR R4,PREG14 
.WORD GETRNX-ANCHOR 



MOV 


02, RO 


j SET FAILURE STATUS IN RO 


ERRDF 


ll.EMSGll.ERRl 


} RECEIVE RING BOOKKEEPING ERROR 

TRAP C$FRDF 
.WORD 11 
.WORD EMSG11 
.WORD ERR1 



CLR DESCCR4) 
RETURN R2 



I INVALIDATE CURRENT DESCRIPTOR 

} RETURN WITH NUMBER OF ENTRYS HANDLED 

MOV R2,(R5)> 
RTS PC 



4222 



N/ 
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V.EQ 91 



4224 
4225 
4226 

4227 

4228 

4229 

4250 

42-M 

4232 

^■233 

4234 

4235 

4236 

423"-' 

4228 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4 262 

4265 

4264 

4265 

4266 

4267 

4268 

4269 

42/0 

42/1 

4272 

4273 

42/4 

4275 

42 76 
42/7 
42**8 



074632 
0/4632 
074636 
074636 
07464C 
074640 
C74642 
074644 
O74o50 



.SBTTL BMPCNT - UPDATE STATISTICS 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO UPDATE THE STATISTICS COUNTERS FROM THE 
INFO IN STATUS WORDS 1 AND 2 IN BUFFER DESCRIPTOR ENTRIES 

CALLING SEQUENCE 

CALL BMPCNT XFER TYPE.DESCRIPTOR ADDRESS 

INPUT 

DESCRIPTOR ADDRESS - ADDRESS OF THE RING DESCRIPTOR ENTRY 
XFER TYPE - - RING DESCRIPTOR FROM RCV LIST 
- x - RING DESCRIPTOR FROM XMIT LIST 

IMPLICIT INPUT 

NONE 
OUTPUT 

COUNTER ARE UPDATED 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 

REGISTERS USED 

Rl •• HOLDS ADDRESS OF COUNTER TABLE 

R2 - HOLDS ADDRESS OF RING DESCRIPTOR 

R? - SCRATCH PAD 

R4 - SCRATCH PAD 



012701 C50144 
0)4502 



DEBUG 



BMPCNT: 



014503 
00 1504 
016204 
032704 



000010 
000400 



NONE 



MOV 
P5P0P 

P$POP 

BLQ 
MOV 
BIT 



0CNTRS.R1 
R2 

R3 

DMPREC 

STAT1(R2) I R4 

0MFAIL.R4 



GET ADDRESS OF COUNTER TABLE 
GET ADDRESS OF DESCRIPTOR 

MOV -(R5).R2 

XMIT OR RECEIVt? 

MOV CR5),R3 

BRANCH IF RECEIVE PACKET 
GET STATUS UORD 
DID Wfc GET HEARTBEAT f»UURL? 



BH 



CVNIAAO 
BMPCNT 

4c 1 79 

4280 
4281 

4262 
4283 
4284 
4285 
4286 
428? 
4288 
4289 
4290 
429). 

4292 

4295 
4294 
4295 
4296 

4297 
4298 
4299 

4300 
4301 
4302 
4303 
4304 
4305 
4 506 
4307 

4 308 

4 309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4 320 
4321 
4322 
4323 
4 324 
4325 
4 326 
432? 
4 328 
4 529 
4530 
4551 
4 332 
4333 
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074b54 
074656 



074662 
074662 
074666 
074670 
074674 
074 700 
074702 
074702 
074704 
074710 
074712 
074720 
074720 
074720 
074722 
074722 
074726 
074730 
074734 
074736 
074744 
074744 
074750 
074752 
074756 
074 760 
074 766 
074 766 
074774 
074 7 76 
075004 
075006 
075014 
075014 
075016 
075016 
075022 
075024 
075030 
075032 
075036 
075040 
75044 
075046 
075046 
075052 
075054 
075054 
75060 
0/5064 
075066 



001402 
005261 



032704 
001453 
005261 
032704 
001410 

010446 
042704 
001003 
052761 



012604 

032704 
001406 
032704 
001003 

052761 

032704 
001006 

032704 
001403 
032761 

032761 
001407 
032761 
001003 
052761 

000560 

042704 
001460 
162704 
001455 
162704 
001003 
005261 
00044 7 

005261 
000444 

016204 
032 704 
001001 
000436 



000074 
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BEQ 3$ 

INC CCOLL(Rl) 



5F.Q 9? 



I BRANCH IF' NOT 

I ELSE, INCREMENT NUMBER OF COLLISION TEST FAILURES 



j SEE IF XMISSION WAS ABORTEDj IF IT WAS, SET REASON MASK. NOTt THAT 16 
j RETRIES WILL HAVE BEEN ATTEMPTED FOR CARRIER LOSS AND NO CARRIER. 



016000 

0000 72 
004000 



177417 

000001 000070 

010000 
002000 

000002 000070 
010000 
002000 

000004 000070 
000001 000070 
000004 000070 
000010 O00C7O 

177417 
000020 
000020 
000050 

000044 



000010 
040000 



i 
3$ 



5$ 



10$ 



201: 



30$ 



40* 
50$ 



60$: 
BMPREC; 



BIT 


OMABORT ! ML OSS ! MNOCAR , R4 


BEQ 


501 


INC 


C.XABT(Rl) 


BIT 


OMAB0RT.R4 


BEQ 


101 


PUSH 


R4 


BIC 


$177417, R4 


BNE 


5$ 


BIS 


OC.RTRY.C.XABBCRl) 



POP R4 



BIT 0ML0SS,R4 

BEQ 20$ 

BIT 0MN0CAR.R4 

BNE 20$ 

BIS OC CAR.C.XABBCR1) 

BIT 0ML0SS.R4 

BNE 30$ 

BIT 0MN0CAR,R4 

BEQ 30$ 

BIT OC.SHRT.C.XABB(Rl) 

BIT 0C.RTRY,C.XABB(R1) 

BEQ 40t 

BIT OC.SHRT.C.XABBCRn 

BNE 40$ 

BIS OC.OPEN,C,XABB(R1) 

BR BMPEXI 

BIC $177417, R4 

BEQ BMPMU 

SUB 020, R4 

BEQ BMPMUL 

Si* 020, R4 

BNF 60$ 

INC C.PXM2CR1) 

BR BMPMU 

INC C.PXM5(R1) 

BR BMPMU 

MOV STATURE ),R4 

BIT OMRlRRS^ 

BNE 5$ 

BR UMPMU 



ABORT ? 
BRANCH IF NOT 
BUMP ABORT COUNT 
IS ABORT SET? 
BRANCH IF NOT 
SAVE R4 

MOV R4 , - ( SP ) 
CLEAR EVERYTHING BUT RETRY COUNT 
BRANCH IF THE COUNT IS NOT ZERO 
ELSE, SET RETRY FAILURE BIT IN BIT MkSK 

RESTORE CONTENTS OF R4 

MOV <SP)*,R4 

WAS LOST CARRIER REASON FOR ABORT? 

BRANCH IF NOT 

TEST FOR NO CARRIER SENSED 

BRANCH IF ZERO 

SET CARRIER LUST BIT 

WAS LOST CARRIER REASON FOR ABORT? 

BRANCH IF NOT 

TEST FOR NO CARRIER SENSED 

BRANCH IF ZERO 

YES, IT'S SET, SET SHORTED BIT 

RETPr ABORT SET? 

BRANCH IF NOT 

FL SE, IS THE SHORT BIT SET? 

BRANCH IF NOT 

FLSE, RETR> ABORT ANO NOT A SHORT, SET OPEN BIT 

NO XMISSION OCCURRED, IGNORE BtTCNT 

CLEAR ALL BUT RETRl COUNT 

COWTtR IS ZERO, NO RETRIES OCCURRED 

DECREMENT COUNT 

BRANCH IF ONLY ONE RETRi 

ELSE, DECREMENT COUNT AGAIN 

BRANCH IF MORE THAN TWO 

ELSE, BUMP 2 RETRIES COUNT 

FINISH COLNTERS 

INCREMENT 3 OR MORE RETRIES COUNTER 
FINISH COUNTERS 

lit T STATUS WORD i 

Tf ST ERROR BIT 

URANCH IF ERROR BIT IS SET 
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SF.Q 05 



4554 

4555 
4556 
4557 
4558 
4559 
4340 
4341 
434c 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4550 
4551 
4352 
4353 
4354 
4355 
4356 
4557 
4558 

4559 
4560 
4561 
4562 
4 565 
4 564 
4565 
4 566 
4567 

4 368 
4569 
4370 
4371 
4572 

4373 

4374 
4375 
4576 
437/ 
437S 
437} 
4 580 
4381 
4382 
43C3 
4384 
4385 
4 386 



075070 

075070 

075074 

075076 

075076 

075102 

075106 

075110 

075114 

075114 

075120 

075122 

075150 

075150 

075134 

075156 

075144 

075144 

075146 

C75146 

075152 

075154 

075162 

075164 

075164 

075164 

075170 

075172 

075174 

075200 

075202 

075204 

075206 

075206 

075212 

075212 

075214 

075220 

075224 

075226 

075252 

075232 

075254 

075254 

075240 

075242 

075244 

075250 

075256 

75260 

075262 

75262 

0752 70 

075272 

075274 

075274 

075*74 



052704 
001424 

005261 
052704 
001402 
005261 

052 704 
001411 
052761 

052704 
001405 
052761 

000504 

052704 
001404 
052761 
000475 



016225 
005705 
001405 
016204 
005404 
006504 
000415 



010225 
016202 
042702 
050204 
062704 

014502 

162704 

005705 
001450 
005261 
052762 
001401 
005504 

032762 
001401 
005304 



014502 



010000 

000016 
000001 

000030 

000002 

000001 000014 
000004 

000002 000014 

004000 

000010 000014 

000004 
000006 



042704 174377 



000012 
177400 

000074 



000016 



5*; 
10l{ 

20$s 

30*5 

35*t 
40$! 

BMPMUL 



5$: 



15$: 



000034 

000100 000002 



000200 000002 



10*! 



20*i 



BIT *MDISC,R4 

BEQ 40$ 

INC C>RERR(R1) 

BIT 0M0VF.R4 

BEQ 20$ 

INC C.RLINCR1) 

BIT 0MCRC.R4 

BEQ 35$ 

BIS 0C,CRC,C,RERB(R1) 

BIT *HFRAM,R4 

BEQ 35$ 

BIS OC.FRAM.C.RERBCRO 

BR BMPEXI 

BIT *MRUNT,R4 

BEQ BMPMUL 

BIS *C.RUNT,C,RERB(R1) 

BR BMPEXI 

P$PUSH L0A0D(R2) 

TST R3 

BEQ 5$ 

MOV WRDCNT(R2),R4 

NEG R4 

ASL R4 

B« 15$ 

BIC 0174377, R4 
PI PUSH R2 

MOV STAT2(R2),R2 

BIC tf.C377.R2 

BIS R2.R4 

ADD 060., R4 

PIPOP R2 



SUB 016, R4 

TST R3 

BEQ 501 

INC C.PXMT(fii) 

BIT *MHIBYT,DESC(R2) 

BEQ 10$ 

DEC R4 

BIT *ML OBYT.OESCCRc 1 ) 

BEQ 20 J 

DEC R4 

PIPOP R2 



IS RUNT OR DISCARD SET? 
BRANCH IE NOT 

INCREMENT RECEIVE ERROR COUNT 

OVERFLOW? 

BRANCH IF NOT 

SET INTERNAL BUFFER ERROR 

CRC ERROR SET? 
BRANCH IF NOT 
SET CRC ERROR BIT 

FRAMING ERROR? 

BRANCH IF NOT 

ELSE, SET FRAMING ERROR BIT 

EXIT 



RUNT PACKET? 
BRANCH IF NOT 
SET RUNT PACKET 

EXIT 



BIT 



BUFFER 
L0ADP(R2^(R5)» 



SAVE ADDRESS OF DATA 

MOV 

XMIT OR RECEIVE? 
BRANCH IF RECEIVE 
GET XMITTED WORD COUNT 
COMPLEMENT IT 
T iJ«N INTO BYTE COUN 
CONTINUE 



EXTRACT RCV BYTE LENGTH 10t8 
SAVE THE PACKET ADDRESS 

MOV R2,(R5)» 

GET RCV BYTE LENGTH 7-0 
CLEAR COPY OF THE COUNT IN HIGH BiTE 
MERGE the TWO BYTE LENGTHS 

MAKE UP FOR BYTES LOST DURING ADDRESS CHECK 
RESTORE THE PACKET ADDRESS 

MOV <R5),R2 



BYTES, 



SUBTRACT PROTOCOL 
SEE IF XMIT OR RECEIVE 
BRANCH TF RECEIVE 

INCREMENT NUMBER OF PACKETS XMITTEU 
DID DATA START ON BYTE BOUNDARY? 
BRANCH If NOT 
DECREMENT COUNT B> ONE- 
DID DATA START ON BYTE BOUNDARY > 
BRANCH IF NOT 
DECREMENT COUNT Hi ONE 

I GET DATA BUFFER ADDRESS 

MQV -(R'jl.R*? 



COUNT ONLY DATA BtTfcS 



D8 

fiXWfi^^&PHttT^sMWitfbi DIAG MACR ° M1 ^ 00 22 -MAR -84 13 1 IP PAGE 26-3 



SEG) 94 



4387 


075276 


032762 


000001 000000 




BIT 


0BIT00 t DESTIN(R2) i 


4388 


075304 


001404 






BEQ 


40$ | 


4 389 


075306 


005261 


000040 




INC 


CMXMrCRl) , 


4 390 


075312 


060461 


000064 




ADO 


R4,C.XMDB(R1) j 


4391 


075316 






40*5 






4 392 


075316 


060461 


000060 




ADD 


R4,C,X0AT(R1) i 


4393 


075322 


000415 






BR 


BMPEXI , 


4 394 


075324 






50$ j 






4395 


075324 
075324 


014502 






PiPOP 


R2 t 


4396 


075326 


005261 


000004 




INC 


C.PREC(Rl) i 


4397 


075332 


032762 


000001 000000 




BIT 


0BIT00.DESTINCR2) » 


4398 


075340 


001404 






BEQ 


60$ j 


4399 


C75342 


005261 


000010 




INC 


C.MRtCCRt) j 


4400 


075346 


060461 


000024 




ADO 


R4,C,RM0B(R1) j 


4401 


075352 






60$! 






4402 


075352 


060461 


000020 




ADD 


R4.C.RDATCR1) ; 


440? 


075356 






BMPEXI; 






4404 


075356 
075356 


00020 7 






RETURN 





MULTICAST ADDRESS? 

NO IF ZERO, MOVE ON 

BUMP MULTICAST XMIT COUNT 

ADD BYTE COUNT TO MULTICAST BYTE CNT 

ADD BYTE COUNT TO TOTAL DATA 
EXIT 

GET DATA BUFFER ADDRESS 

MOV ~CR5),R2 
BUMP PACKETS RECEIVED 
MULTICAST ADDRESS? 
BRANCH NOT SET 

BUMP MULTICAST RECEIVE PACKET COUNT 
BUMP MULTICAST RECEIVE BYTE COUNT 

BUMP RECEIVED DATA COUNT 

ADIOS, AVOIR, AUWEIDERSEN 
RTS PC 



L8 



CVNIAAO 


DFQNA NI EXERCISER DIAC 


EDPACK - 


ETHERNET DATA 


PACKING 


4406 








4407 








4408 








4409 








4410 








4411 








441? 








4413 








4414 








4413 








4416 








4417 








4418 








4419 








44 20 








4421 








44?2 








4423 








4424 








4425 








4426 








4427 








4428 








4429 








4430 








4431 








4432 








4433 








4434 








4435 








4436 








4437 








4438 








4439 








4440 








4441 








4442 


075360 






4443 


075472 


000000 




4444 


075474 








754 74 


014537 


0754 72 




075500 


014504 






075502 


014503 




4445 








4446 


075504 


005002 




444 7 


075506 


006303 




4448 


075510 








075510 


010325 






075512 


012725 


075360 




075516 


013725 


075472 




0?5522 


004437 


070656 




7552' 


0046 7? 




4449 


075530 








075530 


014501 






075532 


014502 




4450 








4451 


075534 


005/0? 




4452 


075536 


001010 





i MACRO M1200 
ROUTINE 
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SEQ 95 



.SBTTL EDPACK - ETHERNET DATA PACKING ROUTINE 



FUNCTIONAL 



DESCRIPTION; 



- - 1 



LOCDSTj 
SOURCE: 
EDPACK i 



EDPACK 



ETHERNET DATA PACK 



THIS ROUTINE WILL CONVERT A STRING OF HEX CHARACTERS INTO A RIGHT 
JUSTIFIED BINARY STREAM (WITH LEADING ZEROS), COMPATIBLE WITH 
ETHERNET CONVENTIONS. THE SOURCE STRING MUST BE FORMATTED USING 
EITHER A WORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE RETURNED STRING WILL BE BYTE ORIENTED AS 
REQUIRED BY THE ETHERNET: 
LO-BYTE-WORDO HI -BYTE-WOrtDO LO-BYTE -W0RD1 HI -BYTE -W0RD1 , ETC. 



INPUT ARGUMENTS 



EXPLICIT OUTPUTS 
IMPLIED OUTPUTS 



SUBORDINATE PROCEDURES 
CALLING PROCEDURE 



PI - ADDRESS OF THE SOURCE (Y^EX) STRING 

TO BE CONVERTED TO A BINARY STREAM. 
P2 - ADDRESS OF THE DESIRED DESTINATION 

BUFFER WHICH WILL ACCEPT BINARY DATA 
P3 - LENGTH (IN BYTES) OF THE DESTINATION 

B'JFFER 
P4 - ZERO IF SUCCESSFUL, -I IF dUFFER TOO 

LONG OR ODD NUMBER OF HEX CHARACTERS 
THE BUFFER AT P2 WILL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM W/ LEADING ZEROS 
AND CORRESPONDING TO HEX STRING AT R5. 
HXF ORM. (STRIP NONHEX CHARACTERS) 
HEXBIN. (HEX TO BINARY CONVERSION) 
CALL EDPACK P1.P2.P3 j INPUT P1-P3 PARAMETERS 
P$POP P4 ; OUTPUT P4 PARAMETER 



.BLKB 
, WORD 
PJPOP 



74 



SOURCE, R4.R3 



CLR 


R2 


ASL 


R3 


CALL 


HXF ORM 



SOURCE. 0LOCDST.R3 



} MAX NUMBER OF CHARACTERS THAT MAY 3E ENTERRED 
{SOURCE ADDRESS 

|R4 -DESTINATION, R3-NUMBER OF CHARS RQD 

MOV -<R5). SOURCE 
MOV -(R5).R4 
MOV (R5),R3 
jSOURCE-SRC ADDRESS. ORIENT -WORD/BY TE ? 
jASSLflE NO ERRORS. VALUE RE TINNED 
{NUMBER OF CHARACTERS REQUIRED W/ "O'S 



P$POP R1.R2 



R3.CR5)* 
*L0CD5T.LR5)* 
SOURCE ,(R5). 
R4.PREG14 

HXFORM- ANCHOR 



BNE 



R? 
10$ 



MOV 

MOV 

MOV 

JSR 

.WORD 
iRl -ADDRESS OF LAST CHAR 

MOV -(R5),R1 

MOV - ( R5 ) R2 
(R2-SUCCESS/FAII CODE (O'-l) 
jRl WILL POINT TO RIGHTMOST CHARACTER 
j RIGHT JUSTIFY BUFFER 



F8 
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4455 
4454 
4455 



4456 

4457 



4458 



075540 006203 

075542 

075542 010325 

075544 010425 

075546 012725 075360 

075552 004437 070656 

075556 005030 

075560 

075560 010225 

075562 000207 
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ASR R3 

CAUL HEXOIN tfLOCDST ,R4 t R3 



SEQ 96 



{CONVERT HEX AT LOCDST TO BINARY 
|R3 BYTES IN OUTPUT BIT STREAM 



10$ i 



RETURN R2 



jRETURN WITH 



MOV 
MOV 
MOV 
JSR 
.WORD 


R3.CR5)* 
R4,(R5)* 
OLOCDST, (R5)> 
R4.PREG14 

HEXB IN -ANCHOR 


SUCCESS/FAILURE INDICATION 
MOV R2,(R5)» 
RTS PC 



G8 
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SEG 97 



4460 
4461 
4462 
4463 

4464 
4465 
4466 
4467 
4468 
4469 
44 70 
4471 
4472 
44 73 
4474 
44 75 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 



4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 



075564 
07556b 
075566 
075570 
075572 



075576 
075600 

075604 
075606 

075612 
075614 
75620 
075622 
075626 
075630 
075634 
075636 
075642 

75644 
75646 



075650 
075652 
075654 
075b60 



000000 

014503 
014502 
014537 



010204 
063704 

112301 
142701 

001414 
120127 
100413 
120127 
100406 
120127 
100405 
122701 
100402 

11012? 
001405 



020402 
100354 
012/04 
000404 



.SBTTL HXFORM - HEX FORMAT ROUTINE 



i FUNCTIONAL DESCRIPTION: 



HXFORM 



HEX FORMAT ROUTINE 



THIS ROUTINE WILL ACCEPT A HEX STRING, AND STRIP OUT THE NGi%-HEX 
CHARACTERS (WITHOUT FLAL-SING AN ERROR FOR THE NON-HEX CHARACTERS). 
A NULL WILL BE LEFT AS THE END OF STRING DELIMITTER. 



INPUT ARGUMENTS 

EXPLICIT OUPUTS 

IMPLICIT OUTPUTS 
CALLING PROCEDURE 

.WORD 
HXFORM: P*POP R3,R2,HXN 



PI- 
PS - 

P3- 
P4- 

P5- 



ADDRESS OF THE SOURCE ASCII STRING (NULL 

DELIMITTER AT END OF STRING) 

ADDRESS OF THE DESTINATION ASCII HEX STRING 

(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 

THE NUMBER OF HEX CHARACTERS DESIRED SR4 

WILL CONTAIN THE ADDRESS OF THE LAST 

CHARACTER IN THE OUTPUT BUFFER. 

THF SUCCESS/FAILURE C0/-1) INDICATOR 



i 
l 
i 

HXN; 



THE BUFFER AT R4 WILL 
HEX (ASCII) STRING. 
CALL HXFORM P1.P2.P3 
P$POP P4.P5 



CONTAIN FORMATTED 



075564 

075564 

000200 

000060 
000072 
000101 
000106 



177777 





MOV 


R2.R4 




ADD 


HXN.R4 


10* : 


MOVB 


(R3)».R1 


20$: 


BICB 


0200, Rl 




BEQ 


30$ 




CMPB 


Rl,060 




BMI 


40$ 




CMPB 


Rl.072 




BMI 


30$ 




CMPB 


R1.0101 




BMI 


40$ 




CMPB 


0106, Rl 




BMI 


40$ 


30$: 


MOVB 


R1,(R2)* 




BEQ 


60$ 


40$: 


CMP 


R4.R2 




BPL. 


10$ 


50$: 


MOV 


1.R4 




BR 


70$ 



{ADDRESS OF SOURCE STRING 

MOV -(R5),R3 
MOV (R5),R2 
MOV -(R5),HXN 
ADDRESS OF DESTINATION STRING 
NUMBER OF HEX CHARACTERS DESIRED 

DESTINATION ADDRESS. R2j DESTINATION POINTER 

POINT TO END OF OUTPUT BUFFER (DESTINATION) 

DO WHILE NO NULL FOUND IN SOURCE STRING 

GET BYTE IN QUESTION (6 POINT TO NEXT BYTE) 

ENSURE HI BIT IS LO (SEVEN BIT ASCII) 

CHECK FOR VALID HEX CHARACTER 

THE NULL IS A VALID CHARACTER (BUT THE LAST) 

IF GREATER THAN "0" THEN RANGE OK 

40$ -OUT OF RANGE, BYTE VALUE TOO SMALL 

IE BYTE IS LESS THAN 72 AND >-60 THEN RANGE OK 

RANGE OK IF >-60 ANO < 72 ELSE. CONTINUE CHECK 

ByTE MUST BE >-10l TO CONTINUE CHECK 

IF BYTE >71 ANO <101 THEN BYTE OUT OF RANGE. 

BYTE MUST BE <-106 TO BE OK. ELSE; NOT OK. 

BYTE NOT OK, DON'T PLACE THIS BYTE IN OUTPUT. 

PLACE THE HEX BYTE IN THE OUTPUT BUFFER. 

B>TE IN RANGE. CONFIRMED. BYTE OK. POINT TO 

NEXT BYTE DEST ADDRESS. IE NULL, THEN EXIT. 

(NO ERRORS) 

IF NOT NULL, THEN CHECK FOR BUFFER OVERFLOW. 

R4 POINTS TO LAST CHARACTER POSITION (OUTPUT Y 

R2 PRESENT WRITE ADDRESS 

(SHOULD BE POSITIVE RESULT OR 0) (MORE TO Dir 

SE T ERROR CONDITION (EXIT WITH ERRORY 

ERROR DETECTED EXIT PATH -> i TOO MANY CHARS) 



H8 
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HXFORM 


- HEX FOI 


RMAT ROi 


4514 






4515 






4516 


075662 


005302 


4517 


075664 


020402 


4518 


075666 


001372 


4519 


075670 


005004 


4520 


075672 






075672 


010425 




075674 


010225 




075676 


000207 
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60$ 



70$ 



DEC 


R2 


CMP 


R4.R2 


BNE 


50$ 


CLR 


R4 


RETURN 


R2»R4 



SEQ 08 



{SUCCESSFUL EXIT PATH 

{POINT TO THE LAST ACTUAL CHARACTER AT DEST BKR 

{CHECK FOR MINIMUN OK 12 CHARACTERS. 

{BRANCH IF LESS THAN 12, ERROR, 

{INDICATE SUCESS 

{ADDRESS OF LAST CHARACTER CR2) 

MOV 

MOV 



4521 



{ERROR INDICATOR (R4) IS P5 



IS P4 
R4.CR5)* 
R2,(R5)+ 
PC 



18 
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HEXBIN • HfX TO BINARY CONVERSION 

4523 

4524 : - - 



4526 
452? 
4526 
4529 
4550 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
453S 
4539 
4540 
4541 
4542 
4543 
4544 
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Sf.Q 99 



.SBTTL 
HEXBIN 



HEXBIN - HEX TO BINARY CONVERSION 

HEX TO BINARY CONVERSION PROCEDURE 



4545 
4546 



4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4S5* 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4 566 
456 * 
4563 



075700 
075702 
075705 
075710 
075713 
075716 
075721 

75724 

075^24 
075726 
075730 



075734 
075740 
075744 
075746 
07575C 
075 752 



075756 
75 760 
075762 
0/5 764 
075766 
75 7 70 
75 7 74 
0/57/6 
/6000 
76002 



OOOC 00 
060 
063 
066 
071 
103 
106 



014501 
014502 
014537 



06023 7 
012704 
121124 
001376 
005201 
1627 >4 



006304 
006304 
006304 
006304 
010403 
012704 
121124 
001576 
005201 
162704 



THIS PROCEDURE WILL CONVERT A STRING OF HEX (ASCII) CHARACTERS 
DIRECTLY TO A BINARY STREAM. THE DESTINATION BINARY STREAM WILL 
REQUIRE ONLY HALF AS MANY BYTES AS THE HEX STRING BECAUSE TWO 
HEX CHARACTERS ARE REQUIRED TO REPRESENT A SINGLE BINARY BYTE. 



INPUTS 



OUTPUTS 
IMPLIED OUTPUTS 



PI 
P2 
P3 



SUBORDINATE PROCEDURES 
CALLING PROCEDURE 



SOURCE STRING ADDRESS (DELIMTTTED BY A NULL) 
DESTINATION ADDRESS FOR THE BINARY DATA. 
THE NUMBER OF BINARY BYTES REQUIRED (HALF THE 

NUMBER OF CHARACTERS AT PI. 

NO EXPLICIT OUTPUTS 

THE BUFFER AT P2 WILL CON'lAIN THE BINARY 

STREAM, CONVERTED DIRECTLi FROM THE BUFFER 

AT PI, 

NONE 

CALL HEXBIN P1.P2.P3 



061 
064 
06 7 
101 
104 
000 



075700 



075700 
075702 



075703 



062 
065 
070 
102 
105 



HN: .WORD 
CMPSTR: .ASCIZ 



/0123456769ABCDEF/ 



HEXBIN: 



.EVEN 
P5P0P 



R1.R2.HN 



-CR5).R1 
~(R5),R2 
-CR5).HN 



075702 



075/03 





ADO 


R2.HN 


lOt: 


MOV 


0CMP5TR.R4 


20$: 


CMPB 


CRD.CR4). 




BNE 


?0t 




INC 


Rl 




SUB 


#CMPSTR*1,R4 




ASL 


R4 




ASL 


R4 




ASL 


R4 




ASL 


R4 




MOV 


R4.R3 




MOV 


0CMPSTR.R4 


30$: 


CMPO 


i*n,iR4)» 




rne 


50$ 




INC 


Rl 




SUB 


0CMPSTP»1.R4 



{RESOURCE STRING ADDRESS 

MOV 

MCV 

MOV 

iR2«DESTINATI0N STRING ADDRESS 
jHN-NL^BER Of BYTES REQUIRED 
,HN NOW POINTS TO THE LAST BYTE POSITIONS 
jPOINTER IN THE COMPARE STRING 
; COMPARE CURRENT CHAR UITH A CHAR IN CMPSTR 
{REPEAT UNTIL CHARACTER FOUNO IN LIST 
{POINT TO THE NEXT ASCII BtTE 

jR4 NOW CONTAINS THE ACTUAL BINAR* VALUE *0R 
{THE NIBBLE DESCRIBED By THE CURRENT B>U, 
jNOTE: NIBBLE IS THE HI PORTION OF THE BYTF. 
;MOVE NIBBLE TO THE HI END OF THE BYTE 



{SAVE THE HI NIBBLE 

I POINTER INTO COMPARE STRING 

{COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 

{REPEAT UNTIL MATCH FOUND IN CMPSTR LIST 

{POINT TO THE NEXT ASCII By TE 

;P4 NOW CONTAINS THE ACTUAi. BINAR? VAiufc *M 

j THE NIBBLE DESCRIBED By THE CURRENT By T t . 

j NOTE: NIBBLE IS THE Hi PORTION Of THE B*Tt 



J 8 
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SEQ 100 



4Sb9 
4!i70 

4v;i 
45:2 

4T-.73 

4574 



076006 Ob0403 



076010 
076012 
076016 
76020 
076020 



110322 
020237 
100750 



000207 



BT 



075700 



P4.R3 



MOVB 


R3,(R2)* 


CMP 


R2.HN 


BMI 


10* 


RETURN 





j NOW THE TWO CHARACTERS HAVE MADE A SINGLE BfTF 
iNOW PLACE THE COMPLETE BYTE IN THE DESTINATION 
{AND POINT TO THE NEXT DESTINATION BfTE 
j IF THE DESTINATION POINTER [R2] REACHES THE 
lLAST CHARACTER POSITIONS [HNj THEN DONE. 
jRETURN TO CALLER 

RTS PC 



I<8 
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SEQ 101 



VE 



4576 










437 7 










45 ;$ 










45 79 










41^80 










4581 










458c' 










4585 










4 584 










4585 










4586 










458/ 










4588 










458^> 










4590 










4591 










459? 










4593 


076022 


060 


061 


062 




076025 


063 


064 


065 




76030 


066 


06/ 


070 




076033 


071 


101 


102 




076036 


103 


104 


105 




076041 


106 






4594 


076042 


000000 






4595 


076044 

76044 


014501 








076046 


014537 


076042 






076052 


014502 






4596 










4597 










4598 


76054 


060137 


076042 




4599 


076060 


112103 






4600 


076062 


110304 






4601 


076064 


042703 


177760 




460? 


076070 


0062C4 






4603 


076072 


006204 






4604 


076074 


006204 






4605 


076076 


006204 






4606 


076100 


042704 


177760 




4607 










4608 










4609 


0/6104 


116422 


076022 




4610 


76110 


116322 


076022 




4611 


076114 


11272? 


000055 




4612 


076120 


020137 


076042 




4613 


076124 


103755 






4M4 


0/6126 


10504? 






4615 


076130 
0'/6l30 


000207 







HEXC 



.SBTTL BINHEX - BINARY TO HEX CONVERSION PROCEDURE 

BINHEX BINARY TO HEX CONVERSION PROCEDURE 

THIS PROCEDURE UILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 

INPUTS - PI- BINARY DATA BUFFER ADDRESS 

P2- NUMBER OF BYTES IN THE BUFFER 
P3- ADDRESS OF OUTPUT BUFFER FOR HEX STRING. 
HEX CHARACTER PAIRS SEPERATED BY "-'"S 
(NOTE; THIS BUFFER MUST BE AT LEAST 3*P2 BYTES LONG) 
OUTPUTS - NONE 
IMPLICIT OUTPUTS THE BUFFER AT P3 WILL CONTAIN THE HEX STRING 

FOLLOWED BY A NULL CHARACTER. 
SUBORDINATE ROUTINES NONE 
CALLING PROCEDURE CALL BINHEX P1.P2.P3 

. ASCII /0123456789ABCDEF/ 



LST; .WORD 
BINHEX; P*POP 



R1.LST.R2 



10$: 



ADO 

MOVB 

MOVB 

BIC 

ASR 

ASR 

ASR 

ASR 

BIC 



MOVB 

MOVB 

MOVB 

CMP 

BLO 

CLRB 

RETURN 



Rl.LST 

CR1)».R3 

R3.R4 

0177760, R3 

R4 

R4 

R4 

R4 

#177760, R4 



HEXC(R4),(R2)» 
HF.XCCR3),(R2)» 
*' ,(R2)f 
Rl.LST 
10$ 
(R2) 



jRl HAS THE INPUT BUFFER ADDRESS 

MOV -CR5).R1 
MOV -CR5),LST 
MOV -CR5),R2 
{LST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
jR2 HAS THE OUTPUT BUFFER ADDRESS 
l LST IS NOW AODRESS OF LAST SOURCE BYTE ♦ 1 
iGET THE CURRENT BYTE AND POINT TO NEXT BYTE 
; SEPARATE NIBBLES AND GET CHARACTERS SEPARATELY 
jONLY RIGHT BINARY NIBBLE REMAINS IN R3 
{SHIFT OVER FOR LEFT BINARY NIBBLE IN R4 



j ONLY LEFT BINARY NIBBLE REMAINS IN R4 

t R4 IS THE MOST SIGNIFICANT NIBBLE (FIRST) 

iR3 IS THE LEAST SIGNIFICANT NIBBLE 

(PUT THE ASCII BYTE INTO ThE BUFFER 

sPUT THE ASCII BYTE INTO THE BUFFER 

(PUT • BETWEEN HEX PAIRS 

i RESULT IS NEGATIVE UNTIL Rl-LST 

I UNTIL Rl-LST. (TRANSFER ALL FOURCE 

{TERMINATE OUTPUT BUFFER WITH A NULL 



(SECOND) 
HI POSITION 
LO POSITION 



BYTES) 



RTS 



PC 
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SEQ 102 



4bl7 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
462S 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
464? 
4643 
4644 
4645 
4646 

4647 
4648 
4649 
4650 
4651 
♦*'>52 
4653 
4654 
4f 55 
4656 
465 7 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
467^ 
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DLDLD - BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT 



076132 
076132 
076132 
076134 
076140 
076144 
076150 
076154 
076160 
076166 
076172 
076174 
076200 
076204 
076210 
076214 
076220 
076224 
076230 
076236 
076242 
076246 
076252 
076260 
076266 
076274 
076302 
076310 
076316 



014501 
013704 
016404 
013703 
062703 
010337 
162737 
022703 
002474 
010337 
012164 
012164 
01U64 
005064 
005064 
005064 
013764 
012702 
012264 
011264 
013764 
013764 
013764 
016264 
013764 
013/64 
013764 



024224 
000004 
002374 
000040 
050324 
000016 
001100 

050332 
000000 
000002 
000004 
000006 
000010 
000012 
050306 
050346 
000016 
000020 
004010 
004012 
004014 
C'JOOIO 
004010 
004 012 
004014 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
FROM THE QNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
PROT. TYPE, ANO LOOP DIRECT HEADER INFO ARE ADDED 
TO THE MESSAGE BUFFER, THE MESSAGE BUFFER IS BUILT 
BY A CALL TO RLDBUF . 

INPUTS - PI - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - PtSIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL QNA PHYSICAL ADDRESS 

OUTPUTS - BUILT MESSAGE PACKET. 

CALLING PROCEDURE - CALL BLDLD Pi 

SIDE EFFECTS - THE MESSAGE PACKET IS BUILD AND CONTAINED IN THE 

BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS ENTERED. 
XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 



REGISTER USAGE - 



Rl HOLDS ADDRESS OF 
R2 IS A POINTER FOR 
R3 HOLDS THE PACKET 
R4 HOLDS ADDRESS OF 



BLDLD:: 



050324 



000014 



000022 
000024 
000026 
000030 
000032 
000034 

Q00Q36 



P$POP Rl 

MOV XRGNXT, R4 

MOV L0ADD(R4),R4 

MOV P$SIZE,R3 

ADD 040, R3 

MOV R3.XFER 

SUB 016.XFEH 

CMP GXPKLEN.R3 

BL' 10$ 

MOV R3,DUFLEN 

MOV (R1)»,DESTIN(R4) 

MOV CR1)*,DESTIN*2CR4) 

MOV (R1),DESTIN*4(R4) 

CLR S0URCCCR4) 

CLR S0URCC*2(R4) 

CLR S0URCC*4(R4) 

MOV PROTOO, PROTOTC R4 ) 

MOV OLOP0IR.R2 

MOV (R2)*,LDSKIP(R4) 

MOV (R2),LDFCTHR4) 

MOV PHYADR. LDADR1CR4) 

MOV PHYAQR*2,LDADKlr2CP4 ) 

MOV PHYADR *4,LDADR1*4(R4) 

MOV 10CR2),LDFCT2CR4) 

MOV PHYADR , LDADR2C R4 ) 

MOV PHYADR»2,LDADR2».:(R4) 

MOV PHYADR*4»LDADR2*4(R4) 



DESTINATION ADDRESS 

THE LOOP DIRECT HEADER INFO 

LENGTH 

NEXT RING ENTRY DATA BUFFER 



PUT ADDRESS OF DEST. ADDRESS IN Rl 

MOV -CR5).R1 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO P3 

ADD HEADER AND LOOP DIRECT INFO TO LENGTH 
PUT BYTES TRANSFERED INTO WORD 

AND CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

i: YES, ERROR 
PUT PACKET LENGTH IN BUFLEN 
MOVE FIRST TWO BYTES OF ADDRESS 
MOVE BYTES THREE ANO FOUR 
MOVE BYTES FIVE AND SIX 
LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 



MOVE PROTOCALL TYPE INTO HEADER 
MOVE LOOPOIRECT FORMAT HEADER LOC» 

SKIP COUNT 

FUNCTION CODE (FORWARD) 

LOCAL NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 



TQ Ri 
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SEQ 103 



4673 
4674 
4675 



4676 



4677 
4678 



4679 



076324 
076330 
076334 
076334 
076336 
076342 
076344 
076344 
076350 
076354 
076360 
076362 
076364 
076364 
076366 
076370 
07637? 
07637*, 
076374 



062704 
010437 

010425 
004437 
006756 

012725 
012725 
004437 
006534 
000404 

104455 
000016 
063774 
070306 

00020 7 



000040 
050334 



070656 



024224 
000000 
070656 



10$ 



20$ 



ADO 4LDADR2+6.R4 

MOV R4.CMPBUF 

CALL BLDBUF R4 



CALL GETXNX tfO,#XRGNXT 



BR 20$ 

ERRDF l4.EMSGl4.eRRl 



RETURN 



POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

MOV R4,CR5)* 
JSR R4.PREG14 
.WORD BLDBUF. ANCHOR 

UPDATE POINTER TO NEXT RING ENTRY 

MOV 4XRGNXT,(R5)+ 
MOV 00,CR5)* 
JSR R4.PREG14 
.WORD GETXNX-ANCHOR 

EXIT 

MESSAGE SIZE TOO BIG 



TRAP 


CJERDF 


.WORD 


14 


.WORD 


F.MSG14 


.WORD 


Lf'Rl 



RTS 



PC 



N8 
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SEQ 104 



4681 










4682 










4683 










4684 










4685 










4686 










4687 










4688 










4689 










4690 










4691 










4692 










4693 










4694 










4695 










46^6 










4697 










4698 










4699 










4700 










4701 










4702 










4703 










4704 










4705 










4 706 


076376 








4707 


076376 
076376 
076400 


014501 
014502 






4 708 










4709 


076402 


013704 


024224 




4710 


076406 


016404 


000004 




4711 


076412 


013703 


002374 




4712 


076416 


062703 


000060 




4713 


076422 


010337 


050324 




4714 


076426 


162737 


000016 


050324 


4715 


0764 34 


022703 


001100 




4716 


076440 


002524 






4717 


076442 


010337 


050332 




4718 


076446 


011264 


000000 




4719 


076452 


016264 


000002 


000002 


4720 


076460 


016264 


000004 


000004 


4721 


076466 


005064 


000006 




4722 


076472 


005064 


000010 




4723 


076476 


005064 


000012 




4724 


076502 


013764 


050306 


000014 


4 725 


076510 


012764 


000000 


000016 


4 726 


076516 


012764 


000002 


000020 


4 72 7 


076524 


011164 


000022 




4728 


0/6530 


016164 


000002 


000024 


4/29 


076536 


016164 


000004 


000026 


4 730 


076544 


012764 


000002 


000030 


4731 


076552 


011264 


000032 




4732 


076556 


< 1626 1 


000002 


000034 


4/33 


076564 


016264 


000004 


000036 


4 734 


076572 


012764 


000002 


000040 


4735 


076600 


013764 


004010 


000042 
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BLDFAS - BUILD PACKET FOR FULL ASSIST TRANSMISSION 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS FULL ASSIST PACKETS FOR TRPNSM1SSI0N 
FROM THE QNA. SOURCE ADDRESS, DESTINATION ADDRESS, PROT . TYPE 
AND FULL ASSIST HEADER INFO ARE ADDED TO THE MESSAGE BUFFER. 
THE MESSAGE BUFFER IS BUILT BY A CALL TO BLDBUF. 



INPUTS - 



OUTPUTS 



PI - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - P$SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL NODE ADDRESS 

THE BUILT BUFFER 



CALLING PROCEDURE - CALL BLDFAS PI 

SIDE EFFECTS - XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 

REGISTER USAGE - Rl HOLDS ADDRESS OF TARGET NODE ADDRESS 

R2 HOLDS ADDRESS OF ASSIST NODE ADDRESS 

R3 HOLDS THE PACKET LENGTH 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 



BLDFAS: t 



P$POP R1.R2 



MOV XRGNXT ,R4 

MOV L0ADD(R4),R4 

MOV PISIZE.R3 

ADD 060 ,R3 

MOV R3.XFER 

SUB 416.XFER 

CMP *):PKLEN.R3 

BLT 10$ 

MOV R3.BUFLEN 

MOV (R2).DESTIN(R4) 

MOV 2CR2),DESTIN+2(R4) 

MOV 4(R2),DESTIN*4(R4) 

CLR S0URCCCR4) 

CLR SCURCC+2CR4) 

CLR S0URCC*4(R4) 

MOV PR0fOO,PR0T0T(R4) 

MOV #0,FASKIP(R4) 

MOV 02.FAFCT1CR4) 

MOV (R1),FAADR1(R4) 

MOV 2CR1),FAADR1*2(R4) 

MOV 4(R1),FAADR1»4(R4) 

MOV 02,FAFCT2(R4) 

MOV CR2),FAADR2(R4) 

MOV 2(R2\FAADR2*2(R4) 

MOV 4 ( R2 ) . F AA0R2 ♦ 4 ( R4 ) 

MOV ,?2,FAFCT3(R4) 

MOV PHYADR .FAADR3C R4 ) 



l PUT ADDRESS OF TARGET ADDRESS INTO Rl 

MOV -(R5),R1 
MOV -(R5),R2 
i AND ADDRESS OF ASSIST ADDRESS INTO R2 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 
ADD HEAOER INFO TO LENGTH 
j PUT 'BYTES TRANSFERED' INTO WORD 
j AND CORRECT FOR HEADER 

SEE IF LONGER THAN ONE PACKET 

IF YES ERROR 
PUT PACKET LENGTH IN BUFLEN 
MOVE FIRST TWO BYTES OF ADDRESS 
MOVE BYTES THREE AND FOUR 
MOVE BYTES FIVE AND SIX 
LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 

l MOVE PROTOCALL TYPE INTO HEADER 

SKIP COUNT 

FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 
SIX B.TES 

FUNCTION CODE (FORWARD) 
ASSIST NODE ADDRESS 
SIX BYTES 

» UNCTION CODt (FORWARD) 
LOCAL NODE ADDRESS 



B9 



CVNIAAO DEQNA NI EXERCISER OIAG MACRO M1200 22-MAR-84 13:12 
BLDf'AS - BUILD PACKET FOR FULL ASSIST TRANSMISSION 



PAGE 32-1 



4 736 
4 737 
4 738 
4739 
4740 
4741 
4 74c? 
4 743 
4 744 



4 745 



4 746 

4747 



4 74S 



076606 
76614 
076622 
076630 
076636 
076644 
076652 
076656 
076662 
076662 
76664 
076670 
076672 
076672 
076676 
076702 
076706 
076710 
0^6712 
076712 
076714 
076716 
076720 
76 722 
076722 



013764 
0.3764 
012764 
013764 
013764 
013764 
062704 
010437 

0104.25 
004437 
006756 

012725 
012725 
004437 
006534 
000404 

104455 
000035 
063774 
070306 

000207 



004012 
004014 
000001 
004010 
004012 
004014 
000060 
050334 



70656 



024224 
000000 
070656 



000C44 
000046 
000050 
000052 
000054 
000056 



105 : 



20$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
CALL 



CALL 



BR 
ERRDF 



RETURN 



PHYADR*2,FAADR3»2(R4) 

PHfADR*4,FAADR3*4(R4) 

01.FAFCT4CR4) 

PHYADR,FAADR4(R4) 

PHYADR»2,FAADR4>2(R4) 

PHYADR*4 $ FAADR4*4(R4) 

0FAADR4*6 ( R4 

R4.CMPBUF 

BLDBUF R4 



GETXNX 0O,OXRGNXT 



20 * 
29 ( EMSG14,ERR1 



SEQ 105 



SIX BYTES 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTE3 

POINT R4 TO FIRST DATA BfTE 

STORE BUFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

MOV R4,(R5)» 

JSR R4.PREG14 

.UORD BLDBLF- ANCHOR 

UPDATE POINTER TO NEXT RING ENTRY 



EXIT 
MESSAGE 



MOV 
MOV 
JSR 
.UORD 

SUE TOO BIG 



0XRCNXT.CR5)* 

00, (R5). 
R4.PREG14 

GETXNX -ANCHOR 



RTS 



TRAP 
.WORD 
,UO«D 
.WORD 

PC 



CJERDF 
29 

EMSG14 
ERRl 



C9 
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SF.Q 106 



4 '50 










4 751 










4 : r i % " 










4 7 S3 










4 754 










4 755 










4 756 


076724 








4757 


076724 
076724 
076726 


014501 
014502 






4 758 










4 759 


076 730 


013704 


024224 




4760 


076734 


016404 


000004 




4 761 


076740 


013703 


002374 




4 *62 


076744 


062703 


000050 




4 763 


076750 


010337 


050324 




4 764 


76754 


162737 


000016 


050324 


4 765 


76762 


022703 


001100 




4 766 


076766 


002511 






4767 


076770 


010337 


050332 




4 768 


076774 


011164 


000000 




4 769 


077000 


016164 


000002 


000002 


4770 


077006 


016164 


000004 


000004 


4771 


077014 


005064 


000006 




4772 


7 7020 


005064 


000010 




4773 


7 7024 


005064 


000012 




4 7 74 


077030 


013764 


050306 


000014 


4775 


7 7036 


012 764 


000000 


000016 


4 7 76 


077044 


012764 


000002 


000020 


4777 


7 7052 


011264 


000022 




4778 


7 7056 


016264 


000002 


000024 


4779 


7 7064 


016264 


000004 


000026 


'780 


077072 


012764 


000002 


000030 


4 781 


077100 


013764 


004010 


000032 


4 782 


077106 


013764 


004012 


000034 


4 783 


077114 


013764 


004014 


000036 


4 784 


077122 


012764 


000001 


000040 


4785 


077130 


013764 


004010 


000042 


4 786 


077136 


013764 


004012 


000044 


4787 


077144 


013764 


004014 


000046 


4788 


077152 


062704 


000050 




4 789 


077156 


010437 


050334 




4 790 


07 7162 
077162 


010425 








07 7164 


0044 3 7 


070656 






077170 


006756 
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BL.DAST - BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 



FUNCTIONAL INSCRIPTION: 



THIS ROUTINE BUILDS RECEIVE ASSIST PACKETS 



BLDASTi 



PtPOP R1.R2 



MOV XRGNXT,R4 

MOV L0ADD(R4),R4 

MOV PISIZE.R3 

ADD 05C.R3 

MOV R3.XFER 

SUB *16 # XFER 

CMP 0XPKLEN.R3 

BLT 101 

MOV R3.BUFLEN 

MOV (Hl),DESriNCR4) 

MOV 2(R1),DESTIN»2(R4) 

MOV 4(R1),DESTIN*4(R4) 

CLR S0URCCCR4) 

CLR S0URCO2CR4) 

CLR S0URCC*4(R4) 

MOV PR0TOO t PR0T0T(R«) 

MOV *O t FASKIP(R4) 

MOV 02.FAFCT1CR4) 

MOV (R2) > FAADR1CR4) 

MOV 2(R2),FAADR1»2(R4) 

MOV 4(R2),FAADRW4(R4) 

MOV *2,FAFCT2(R4) 

MCV PHY ADR . F AADR2C R4 ) 

MOV PHY ADR *2 t F AADR2 » 2( R4 ) 

MOV PHYADR*4,FAADR2*4(R4) 

MOV *1,FAFCT3(R4) 

MOV PHYADR,FAADR3(R<n 

MOV PHYADR*2.FAADR3*2(R4 ) 

MOV PHYADR»4,FAADR5*4(K4) 

ADD *FAADR3>6,R4 

MOV R4.CMPBU* 

CALL BLDBUf R4 



j PUT DESTINATION ADDRESS INTO Rl 

MOV -(R5),R1 
MOV -CR5),R2 

ASSIST ADDRESS INTO R2 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 
ADD HEADER INTO INTO LENGTH 
PUT 'BYTES TRANSFERED' INTO WORD 

ANO CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

jjr YES ERROR 
PUT PACKET LENGTH INTO BUFLEN 
MOVE DESTINATION ADDRESS INTO HEADER 

SIX BYTES WORTH 



LEAVE BLANK SPACE 
SIX BYTES WORTH 



FOR SOURCE ADDRESS 



MOVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTE'J WORTH 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 



i POINT R4 TO FIRST DATA BtTt 

i STORE RUt'tER LOCATION FOR DATA COMPARE 

i BUILD DATA BUFFER 

MOV 
JSR 
.WORD 



R4.(R51. 
R4.PREG14 
BLDBUf* -ANCHOR 



D<) 



mm° mwc N hmm s mo°mm R mfi9 o PA£kw M 
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SF.Q 107 



4 791 


077172 








077172 


012725 


024224 




077176 


012725 


000000 




07 7202 


0044 57 


070656 




7 7206 


006534 




4 792 


077210 


000404 




4 7Q3 


077212 








077212 


104455 






077214 


000044 






077216 


063774 






or?2i>o 


070306 




4794 


07 7222 








077222 


00020? 





10$ i 



CALL 



BR 
FRRDF- 



Gt.TXNX tfO.flXRGNXT 



20$ 
36,tMSG14,fcRRl 



i UPDATE-: RING POINTER 

MOV 
MOV 
JSR 
.WORD 



0XRGNXT,(R5)> 
0O,(R5)» 
R4,PREG14 
GF.TXNX- ANCHOR 



20$; RETURN 



1 MESSAGE. SIZE TOO BIG F.RROR 

TRAP CSERDF 

. WORD 36 

.WORD EMSG14 

.WORD ERR1 



RTS 



PC 



L.9 
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4 796 
4797 
4 798 
4 799 
4800 
4801 
4802 
48C3 
4304 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
481/ 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 



4836 



077224 
07722^ 
077230 
077234 
077242 
077246 
077252 
077256 
077262 
077266 
077272 
077276 
077304 
077310 
077314 
077320 
077324 
077S24 
077330 
077334 
077340 
077342 
077342 



013704 
016404 
012737 
012701 
012164 
012164 
011164 
005064 
005064 
005064 
013764 
012702 
012264 
012264 
011264 

012725 
012725 
004437 
006534 

00Q207 
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BLDREQ - BUILD REQUEST ID PACKETS FOR TRANSMIT 



SEQ 108 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
FROM THE QNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
PROTOCALL TYPE, SEQUENCE NUMBER AND REQUEST ID 
HEADER INFOR ARE BUILT IN THIS SUBROUTINE. 



INPUTS 
OUTPUTS 



IMPLICIT - THE DESTINATION ADDRESS IS CONTAINED IN ADRBUF. 
BUILT MESSAGE PACKET 



CALLING PROCEDURE - CALL BLDREQ 



SIDE EFFECTS 



THE MESSAGE PACKET IS BUILT AND CONTAINED IN THE 
BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE UAS 
ENTERED. XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY. 



REGISTER USAGE - Rl HOLDS ADDRESS OF DESTINATION AODRESS. 

R2 IS A POINTER FOR REQ-.JEST ID HEADER INFO. 

R4 HOLDS ADDRESS OF NE* f RING ENTRY DATA BUFFER. 



024224 

000004 

000100 050332 

002316 

000000 

000002 

000004 

000006 

000010 

000012 

050310 000014 

050340 

000016 

000020 

000022 

024224 
000000 
070656 



BLDREQj 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 



RETURN 



XRGNXT # R4 

L0ADD(R4),R4 

0100.BUFLEN 

flADRBUF.Rl 

(Rl)*,DESTIN(R4) 

CRD* ,0ESTIN*2(R4) 

(R1),DESTIN»4(R4) 

S0URCCCR4) 

S0URCC-2CR4) 

S0URCC*4(R4) 

PR0T02,PR0T0T(R4) 

0REQID.R2 

(R2)*,HEADER(R4) 

(R2)*,HEADER»2(R4) 

(R2),HEADER*4(R4) 

GETXNX <K), 4XRGNXT 



l MOVE NEXT PACKET ADDRESS TO R4 

l POINT R4 TO DATA BLOCK 

j MOVE BUFFER SIZE TO BUFLEN 

I MOVE AODRESS OF DE C T. ADR. TO Rl 

j MOVE FIRST TWO BYTE OF DEST. ADR. 

j AND BYTES THREE AND FOUR 

j AND LAST TWO BYTES 

j LEAVE BLANK SPACE FOR SOURCE ADDR , 

} SIX BYTES WORTH 

I MOVE PROTOCALL TYPE INTO HEADER 

t MOVE REQUEST ID HEADER LOC. TO R2 

; dYTE COUNT 

j FUNCTION CODE (REQUEST ID) 

j RECEIPT NO. 

j UPDATE POINTER TO NEXT RING ENTRY 



MOV 


^XRGNXT , (R5) ► 


MOV 


•0,(R5)» 


vISR 


R4.PREG14 


.WORD 


GF.TXNX- ANCHOR 



RTS 



PC 



F9 



CVN1AA0 DEQNA Nl EXERCISER DJAG MACRO 1 
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4838 






4839 






4840 






4841 






484? 






4843 






4844 






4845 






484* 






4847 






4848 






4844 






4850 






4851 






485? 






485? 






4854 






4855 






4856 






4857 






4858 






4859 






4860 






4861 077344 






486? 077344 


013701 


024216 


4863 077350 


013702 


024232 


4864 077354 






077354 


014503 




4865 077356 


001431 




4866 077360 






4867 07/360 


013703 


024234 


4868 077364 


005063 


000000 


4869 077370 


005063 


000010 


4870 077374 


005063 


000012 


•*7l 0/7400 


012763 


100000 000002 


•■■'■»"■? ^ 77*06 


020203 




■': fl 0/74 to 


001404 




'io74 07741? 


062737 


000014 024234 


4i'5 07/*?0 


000410 




4876 07/4*>«e 






48"'/ 07742? 


010137 


024234 


4878 07742u 


000405 




4879 077430 






4880 077430 






077430 


014503 




4881 077432 


013701 


024214 


4882 077436 


01370? 


024230 


4883 077442 






4884 07744? 






077442 


014503 




4885 077444 


02130? 




4886 077446 


001437 




4887 077450 


062713 


000014 


4888 077454 


020327 


024226 


4889 7 7460 


001075 




4890 077462 


012/04 


024;V*j 


4891 077466 


062 704 


000014 
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GET7NX - GET NEXT TRANSMIT OR RECEIVE RING ENTRr 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE GETS THE NEXT TRANSMIT OR RECEIVE RING 
ENTRY, IT IS ENTERED AT SEPERATE POINTS DEPENDING ON 
WHICH RING IS BEING USED. 



INPUTS 
OUTPUTS 



PI - FLAG INDICATING IF THE PREVIOUS DESCRIPTOR NEEDS REVALIDATING 
P2 - THE ADDRESS OF THE RING POINTER TO BE UPDATED. 

THil RING POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 

ENTRY, 



CALLING PROCEDURE - CALL 

CALL 



GETXNX OP1.0P2 
GETRNX 0P1.0P2 



t FOR TRANSMIT UPDATES 
X FOR RECEIVE UPDATES 



SIDE EFFECTS 



NONE 



REGISTER USAGE - Rl POINTS TO THE FIRST ENTRY IN THE RING 

R2 POINTS TO THE LAST ENTRY IN THE RING 
R3 IS THE ADDRESS OF THc RING POINTER TO BE UPDATED 



MOVE FIRST RING ENTRY TO Rl 

MOVE LAST RING ENTRY TO R2 

SHOULD WE VALIDATE PREVIOUS DESCRIPTOR 

MOV -CR5),R3 
BRANCH IF NOT 

ELSE, GET PREVIOUS DESCRIPTOR 

REINIT THE FLAG 

REINIT THE STATUS 

REINIT STATUS 2 

VALIDATE IT 

IS THIS THE LAST DATA DESCRIPTOR? 

BRANCH IF YES 

ELSE UPDATE PREVIOUS POINTER 

AND DO COMMON STUFF 



GETRNX: 


■ 






MOV 


RRGSRT.R1 




MOV 


RRGLST.R2 




P. 'POP 


R3 




BEQ 


GETCOM 


RNXPSV: 


\ 






MOV 


RRGPRV.R3 




CLR 


FLAGCR3) 




CLR 


STATKR3) 




CLR 


STAT2CR3) 




MOV 


*MVALID,DESC(R3) 




CMP 


R2.R3 




BEQ 


10$ 




ADD 


012. ,RRGPRV 




BR 


GETCOM 


10*: 








MOV 


Rl.RRCPRV 




BR 


GETCOM 


GETXNX: 


• 






P$POP 


R3 




MOV 


XRGSRT.R1 




MOV 


XRGLST.R2 


GET COM: 








PiPOP 


R3 




CMP 


(R3),R? 




bfq 


10$ 




ADD 


<U2, ,(R3) 




CMP 


R3.0RRGNXT 




BNF 


20 > 




MOV 


0RRGNXT t R4 




ADO 


014 1 R4 



LAST ENTRY, POINT 
GO TO COMMON MODE 



TO 3TART OF LIST 



THROW AWAY FIRST PARAMETER 

MOV -CR5),R3 
MOVE FIRST RING ENTRY TO PI 
MOVE LAST RING ENTRY 10 R? 



R3 



GET ADDRESS OK RING POINTER IN 
MOw/ -CR5),R3 

SEE IF POINTER POINTS TO LAST RING 

IF tES, BRANCH 

ELSE, ADD ENTRY LENGTH TO POINTER 
IS THIS THE NEXT RECEIVE POINTER' 
BRANCH IF NOT 

ELSE GET NEXT RING DESCRIPTOR 
POINT TO NEXT DESCRIPTOR 
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SEQ 110 



4892 


0774 72 


005764 


000002 


489: 


077476 


iOO'07 




489'. 


077500 


003 406 




4 09S 


077502 


06'r37 


000014 024226 


4696 


077510 








077510 


0:c. ? 2'5 


024226 


^697 


077514 


00*721 




4 898 


07/516 






4899 


0775K 


023737 


024222 024226 


4900 


07 752-a 


■Oc'OSl 




4901 


077526 


,05737 


050336 


4902 


077532 


001046 




4903 


077534 








077534 


104456 






077536 


000077 






077540 


066526 






077542 


000000 




4904 


077544 


000441 




4905 


077546 






4906 


077546 


022713 


024226 


4907 


077552 


001007 




4908 


077554 


005337 


050336 


4909 


077560 


100004 




4910 


077562 








077562 


104456 






077564 


00007 7 






077566 


066526 






077570 


000000 




4911 


077572 






4912 


077572 


022713 


024222 


4913 


077576 


001002 




4914 


07 7600 


005237 


050336 


4915 


07 7604 






4916 


07 7604 


010113 




4SU7 


077606 


022703 


024226 


491C 


077612 


001016 




4919 


0^7614 


012704 


024226 


4920 


077620 


062704 


000014 


4921 


077624 


005764 


000002 


4922 


077630 


100407 




4923 


077632 


001406 




4 924 


077634 


062737 


000014 024326 


4925 


77642 








077642 


012725 


024226 


4926 


077646 


000644 




492 V 


077650 






4928 


077650 
077650 


000207 





5$: 



TSf 


DESCCR4) 


BMI 


5$ 


BEQ 


5$ 


ADO 


014.RRGNXT 


P$PUSH 


4RRGNXT 


BR 


RNXPRV 


CMP 


RRGCUR.RRGNXT 


BGE 


20$ 


TST 


LAPCNT 


BNE 


20$ 


ERRHRD 


63,EMSG63 



BR 



10$ 



12$: 



18$} 



20$ 



CMP 


0RRGNXT,(R3) 


BNE 


12$ 


DEC 


LAPCNT 


BPL 


12$ 


ERRHRD 


63.EMSG63 



20*; 



CMP 


*RRGCUR,CR3) 


BNE 


18$ 


INC 


LAPCNT 


MOV 


R1.CR3) 


CMP 


*flRGNXT,R3 


BNE 


20$ 


MOV 


0RRGNXT.R4 


ADD 


014, R4 


TST 


DESCCR4) 


BMI 


20$ 


BEQ 


20$ 


ADD 


014.RRGNXT 


P$PUSH 


0RRGNXT 


BR 


RNXPRV 


RETURN 





j 15 IT A THROW AWAY? 

i BRANCH IF STILL VALID 

{ BRANCH IF IT IS NOT A THPOWAWAY 

j ELSE THROW IT AWAY 

l PUT THE ADDRESS BACK ONTO THE PARAMETER STACK 

MOV 0RRGNXT.CR5)* 
j AND UPDATE RECEVE RING POINTERS AGAIN 

j DID NEXT POINTER PASS BY CURRENT POINTER? 

I IF NO, THEN EXIT 

, ELSE, IS CURRENT POINTER A LAP(S) AHEAD? 

j IF YES, THEN EXIT 

j ELSE, REPORT ERROR 



TRAP 


C$ERHRD 


.WORD 


63 


.WORD 


EMSG63 


.WORD 






i e.;it 

I IS THIS THE "NEXT RECEIVE DESCR" POINTER? 

j BRANCH IF NOT 

I ELSE, DECREMENT THE LAPCOUNT 

; BRANCH IF "CURRENT RCV DESCR" POINTER NOT PASSED 

t PRINT "NEXT POINTER PASSED BY CURRENT PONTER" 

TRAP C$ERHRD 

.WORD 63 

.WORD EMSG63 

.WORD 

j IS THIS THE "CURRENT RCV OESC" POINTER? 

t BRANCH IF NOT 

t ELSE, INCREMENT THE LAP COUNTER 

j POINT POINTER TO FIRST ENTRY IN RING 

; IS THIS THE NEXT RECEIVE POINTER? 

j BRANCH IF NOT 

j GET NEXT RING DESCRIPTOR 

j POINT TO NEXT DESCRIPTOR 

i IS IT A THROW AWAY? 

t BRANCH IF STILL VALID 

i BRANCH IF IT IS NOT A THROWAWA^ 

j ELSE THROW IT AWAY 

j PUT ADDRESS BACK ONTO PARAMETER STACK 

MOV ORRGNXT.CRS)* 

\ GO UPDATE POINTERS AGAIN 



RTS 



PC 



CVNIAAO 


DFQNA NI EXERCISER DIA( 


I'LOBl* 


BUILD 


MESSAGE 


BUFFERS 


4930 








4931 








4932 








4933 








4934 








4935 








4936 








493/ 








4938 








4939 








4940 








4941 








4942 








494 3 








4944 








4945 








4946 








494 7 








4946 








4949 








4950 








4951 








4952 








4953 








4954 


077652 






4955 


077652 








077652 


014503 




4956 


077654 


013702 


002372 


*957 


077660 


006302 




4958 


77662 


013704 


002374 


4959 


7 7666 


060304 




4960 


077670 


016201 


003360 


4961 


077674 


005037 


050304 


4962 


077700 


005237 


050304 


4963 


077704 


112123 




4964 


077706 


026237 


003342 


4965 


077714 


001004 




4966 


077716 


016201 


003360 


4967 


077 722 


005037 


050304 


4968 


077726 


020304 




4969 


077730 


001363 




4970 


077732 








077732 


000207 
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22-MAR-84 13:1^ 
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H9 

PAGE 36 

BLDBUF - BUILD MESSAGE BUFFERS 



SEQ HI 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE CREATES A MESSAGE BUFFER TO BE USED 
FOR TRANSMISSION, 



INPUTS 



OUTPUTS 



PI - BUFFER LOCATION TO PUT BUILT MESSAGE 

IMPLICIT - PJSIZE CONTAINS THE SIZE THE BUFFER IS TO BE 

PITYPE CONTAINS THE MESSAGE TYPE 
IMPLICIT - BUFFER STARTING AT LOCATION PI CONTAINS A 

MESSAGE P*SIZE BYTES LONG USING THE MESSAGE 

TYPt SPECIFIED BY PSTYPE. 



CALLING PROCEEDURE CALL BLDBUF PI 
SIDE EFFECTS - NONE 



REGISTER USAGE 



050304 



BLDBUF: 


; 






P$POP 


R3 




MOV 


P$TYPE,R2 




ASl 


R2 




MOV 


P*SIZE,R4 




ADD 


R3.R4 




MOV 


MSGADCR2),R1 




CLR 


COUNT 


10$: 


INC 


COUNT 




MOVB 


(R1)»,(R3)* 




CMP 


MSGCNTCR2), COUNT 




BNE 


20$ 




MOV 


MSGAD(R2).R1 




CLR 


COUNT 


20$: 


CMP 


R3.R4 




BNE 


10$ 




RETURN 





Rl POINTS TO THE NEXT BYTE OF STORED MESSAGE TO BE BUILT 

IN THE MESSAGE BUFFER. 

R2 - (MESSAGE TYPE X 2), USED AS OFFSET FOR POINTERS 

R3 POINTS TO THE NEXT BYTE OF THE BUFFER UNDER CONSTRUCTION 

R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 



PUT BUFFER ADDRESS INTO R3 

MOV (R5),R3 
PUT MESSAGE TYPE INTO R2 
MULTIPLY BY 2 
PUT SIZE INTO R4 
MAKE R4 - LAST BYTE OF BUFFER 
POINT Rl TO FIRST BYTE OF STORED MESSAGE 
CLEAR BYTE COUNTER 
COUNT NO. OF BYTES COPIED 
PUT BYTE IN BUFFER 
ARE Ut AT END O SlOHLp MEbbAbh 

IF NO. CHECK IF DONE 

ELSE, POINT Rl TO BEGINING 

AND CLEAR COUNTER 
IS BUFFER FILLED? 

TF NO, LOOP 

ELSE, RETURN 

RTS PC 



19 
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SEQ 112 



4*72 
49. '3 
49 *4 
49 75 

4976 
4977 

49*8 

4979 

4930 
498; 
498? 
4983 
4984 
4985 
4986 
4°?^ 
4988 
4989 

4990 
4991 
499? 
4993 
4994 
4995 
4996 
4997 
4998 



4*99 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 



5010 
5011 
501? 
5013 
5014 
5015 
5016 



077734 
077734 
077734 
077736 
077740 



07 7 742 
077744 
077750 
077752 
07 7754 
07775* 
077762 
077770 
077772 
077772 
077774 
077776 
100000 
100004 
100010 
100012 
100014 
100020 
10002? 
100024 
100026 
100030 
100036 
100040 
1Q0040 



014501 
014502 
014503 



005004 
005037 
005204 
121213 
001421 
005237 
022737 
002413 

011346 

011246 
010446 
012746 
012746 
010600 
104415 
062 706 
00520? 
005203 
005301 
001350 
022737 
00141? 



,SBTTL 



DATCMP - COMPARE DATA BUFFERS 



FUNCTIONAL DESCRIPTION 

THIS SJBROUTINE COMPARES TUO DATA BUFFERS BYTE BY BYTE. 
IF COMPARISON ERRORS OCCUREO, LOCATION. EXPECTED DATA 
AND RECEIVED DATA ARE PRINTED OUT FOR THE FIRST FIVE 
ERRORS. THE TOTAL NUMBER OF ERRORS IS ALSO PRINTED. 



INPUTS 



OUTPUTS 



PI - THE SIZE (IN BYTES) OF THE BUFFER TO BE COMPARED. 

P2 - THE ADDRESS CF BUFFER TO COMPARE OTHER BUFFER AGAINST 

P3 - THE ADDRESS OF THE SECOND BUFFER. 

P4 - THE NUMBER OF COMPARISON ERRORS. 



CALLING PROCEDURE - CALL DATCMP Hl.P2.P3 

P$POP P4 

I SIDE EFFECTS NONE. 



REGISTER USAGE 



Rl CONTAINS THE COMPARE SIZE 

R2 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 1 

R3 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 2 

R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 



i 



DATCMP: j 



P$POP R1.R2.R3 



050314 



050314 

000005 050314 



10$: 



CLR 


R4 


CLR 


TEMP 


INC 


R4 


CMPB 


CR2).(R3) 


BEQ 


20$ 


INC 


TEMP 


CMP 


$5. TEMP 


Bl.T 


20$ 


PRINTX 


rtCMPERl,R4,(R?MR3) 



PUT COMPARE SIZE IN 
MOV 
MOV 
MOV 
BUFFER 1 ADDRESS IN 
BUFFER 2 ADDRESS IN 
INITIALIZE BYTE OFFSET 

ANO ERROR COUNTER 
INCREMENT OFFSET COUNTER 
COMPARE BUFFERS 

IF SAME. BRANCH 
INCREMENT ERROR COUNTER 
IF MORE THAN 5 ERRORS, 
DON' T PRINT MESSAGE 
PRINT ERROR MESSAGE 

MOV 



Rl 

-(R5),R1 
(R5),R2 
(R5).R3 
R2 AND 
R3 



067602 
000004 



000012 



2Q$j 



000000 050314 



015746 050314 



INC 


R? 


INC 


R3 


DFC 


Rl 


BNE 


10$ 


CMP 


00, TEMP 


BEQ 


30$ 


PRINTX 


OCMPERiMEMP 



INCREMENT 
INCREMENT 
DECREMENT 

IF NOT F 



BUFFER 
BUFFER 
COMPARE 

IN I SHED, 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 
. POINTER 
1 POINTER 
SIZf 
GO BACK FOR MORE 



(R31, CSP) 
(R2), v'SP) 
R4, -(SP) 

0CMPER1, 
»4, -CSPI 
SP.RO 
C$PNTX 
#12, SP 



(SP^ 



WERE THERE *H\ 
IF NO, EXIT 



ERRORS? 



MOV 



TEMP, -;SP"> 



CVNIAAO 
DATCMP 



DfQNA NI 

COMPARE 



EXERCISER DIAG 
DATA BUFFERS 



100044 012746 06 7677 

100050 012746 000002 

100054 010600 

100056 104415 

100060 062706 000006 
5017 100064 

100064 015725 050314 

100070 000207 



J 9 
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30$ l 



RETURN TEMP 



l RETURN WITH 







SEQ 113 




MOV 


0CMPER2, -CSP) 




MOV 


02 1 -(SP) 




MOV 


SP,R0 




TNAP 


C$PNTX 




ADD 


*6,SP 


ERROR 


COUNT ON 


STACK 


MOV 


TEMP, 


,CR5)* 


RTS 


PC 





i<9 
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SEQ 114 



5019 
5020 

5021 

5022 
5023 
5024 
5025 
5026 
502 " 
5028 
5029 
SO 30 
5031 
5032 
SO 3 3 
50 34 
5035 
5036 
503? 
5038 
5039 
5040 
5041 
504 2 
5043 
5044 
5045 
5046 
504 7 
5048 

5049 
5050 
5051 

5052 
5053 



5054 
5055 
5056 
505? 
5058 
5059 



5060 

5061 
5062 

5063 
5064 
5065 
5066 



100072 
100072 
100076 
100104 
100106 
100106 
100110 
100112 
100112 
100114 
100116 
100122 
100124 
100126 
100132 
100134 
100134 
100136 
100140 
100144 
100?46 
100146 
100' 50 
100152 
100156 
100160 
100162 
100170 



014537 
023727 
001002 

014502 

000402 

014502 
014504 
012701 
005711 
001415 
021127 
001454 

010225 

010125 
004437 
026004 

014503 
001412 
062701 
000761 
OUt?U 
016261 
016261 



.SBTTL 



WRITES - WRITE OATA ONTO SUMMARY TABLE 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 
THE NODES SPECIFIED IN THE CALL STATEMENT. EITHER ONE 
OR TWO NODES CAN UPDATED PER CALL. AFTER THE CALL, 
THE SUMMARY DATA COUNTERS ARE CLEARED. THE SUMMARY TABLE 
IS CHECKED FOR A MATCHING NODE ADDRESS AND UPDATES THE 
DATE FOR THAT NODE, OR ADDS THE NODE TO THE TABLE IF II 
DOESN'T EXIT. AN ERROR IS REPORTED IF THE END OF THE TABLE 
IS REACHED, 



INPUTS 



OUTPUTS 



PI - THE NUMBER OF NODES TO UPDATE CI OR 2). 
P2 - THE ADDRESS OF THE FIRST NODE ADDRESS. 
P3 - THE ADDRESS OF THE SECOND NODE ADDRESS IF PI 
BLANK IF PI - 1. 

THE SUMMARY TABLE IS UPDATED. 



= 2 OR 



CALLING PROCEDURE - CALL WRITES Pl,P2(,P3J 

SIDE EFFECTS - THE SUMMARY COUNTERS ARE CLEARED. 



REGISTER USAGE - 



Rl POINTS TO THE CURRENT LOCATION IN THE SUMMARY TABLE 

R2 POINTS TO THE NODE TO BE UPDATED' S ADDRESS. 

R3 IS SCRATCH 

R4 HOLDS THE SECOND NODE TO BE UPDATED ADDRESS. 



050314 

050314 000001 



WRITES; P$POP TEMP 



002714 
177777 

070656 

000026 



000002 000002 
000004 000004 





CMP 


TEMP.tfl 




BNE 


10$ 




P$POP 


R2 




BR 20$ 




10$: 


P$POP 


R2.R4 


20$: 


MOV 


0STATBL.R1 


30$: 


TST 


(Rl ) 




BEQ 


40$ 




CMP 


(Rl),«--1 




BEQ 


aoi 




CALL 


CMPADP R1.R2 



SEE HOW MANY NODES TO WRITE 

MOV -(R5),TEMP 
IF ONLY ONE, GET ADDRESS 



Pi POP 



R3 



MOV 


~(R5),R2 


IF TWO. GET BOTH ADDRESSES 


MOV 


CR5),R2 


MOV 


-CR5),R4 


MOVE STATISTICAL TABLE ADDRESS 


SEE IF SLOT IS EMPTY 




IF YES, BR 




SEE IF TABLE FULL 




IF YES, ERROR 




LOOK FOR MATCHING ADDRESS 


MOV 


R2.(R5)» 


MOV 


Rl t (R5)* 


JSR 


R4.PREG14 


.WORD 


CMPADR AN 


MOV 


-CR5},R3 



INTO Rl 



40$: 



BEQ 


50$ 


ADO 


020, Rl 


BR 


30$ 


MOV 


(R2),OU) 


MOV 


2lR2),2:R] ) 


MOV 


4CR2),4(R1) 



j U YES, BR 

j ELSE, POINT Rl T NEXT ENTRY 

; AND CHECK AGAIN 

i ADD NEW ADDRESS 10 TABLE 

! SIX BYTES WORTH 

i 



L9 



CVNIAAO DEQNA NT EXERCISER U1AG MACRO M1200 
WRITES - WRITE DATA ONTO SUMMARY TABLE 



50$ i 



5067 


100176 


062 7Q1 


000006 


5068 


100202 


063721 


050032 


5069 


100206 


063721 


050030 


5070 


100212 


063721 


050034 


5071 


100216 


063721 


050036 


5072 


100222 


063721 


050040 


5073 


100226 


103001 




5074 


100230 


005511 




5075 


100232 


062701 


000002 


5076 


100236 


063721 


050042 


5077 


100242 


103001 




5076 


10024 4 


005511 




5079 


100246 


062701 


000002 


5080 


100252 


005337 


050314 


5081 


100256 


001414 




5082 


100260 


010402 




5083 


100262 


000715 




5084 


100264 








100264 


012746 


053422 




100270 


012746 


053274 




.1.00274 


012746 


000002 




100300 


010600 






100302 


104417 






100304 


062706 


OO00C6 


5085 


100310 


005037 


050032 


5086 


100314 


005037 


050030 


5087 


100320 


005037 


050034 


5088 


100324 


005037 


050036 


5089 


100330 


00503 7 


050040 


5090 


100334 


005037 


050042 


5091 


1C0340 
100340 


OQ0207 





60$: 



70$: 



80$: 



90$; 



MAR 84 


13:12 PAGE 38-1 


AOD 


06, Rl 


ADD 


S.NREC.CRD + 


ADD 


S. REC,(R1)» 


ADD 


S.LEN.CRD* 


ADD 


S.COMP.CRD* 


ADD 


S. BYTE, CRD* 


BCC 


60$ 


ADC 


CRD 


ADD 


02, Rl 


ADD 


S,XFER,(RD* 


BCC 


70$ 


ADC 


CRD 


ADD 


02. Rl 


DEC 


TEMP 


BEQ 


90$ 


MOV 


R4.R2 


BR 


20$ 


PRINTF 


OTABFUL.OSUMM 



CLR 


S.NREC 


ci.r 


S.RbC 


CLR 


S.LEN 


CLR 


S.COMP 


CLR 


S.BYTE 


CI R 


S,XFER 


RETURN 





SEQ 115 



POINT Rl TO DATA 
UPDATE SUMMARY DATA, RECEIVES NOT COMPLETE 
RECEIVES COMPLETE 
LENGTH ERRORS 
COMPARE ERRORS 
BYTES COMPARED 
IF OVERFLOW, INCREMENT NEXT WORD 

POINT Rl TO NEXT DATA 
BYTES TRANSFERED 
IF OVERFLOW, INCREMENT NEXT WORD 



POINT Rl TO NEXT DATA 
DECR NO OF NODES COUNTER 
IF NO MORE, EXIT 
POINT R2 TO NEXT NODE 

AND UPDATE SUMMARY DATA 
PRINT TABLE FULL MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
CLEAR SUMMARY DATA COUNTERS 



^SUMM, (SP) 
OTABFUL, -(SP) 
02,-CSP) 
SP.RO 

C$PNTF 
06, SP 



RTS 



PC 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 
BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 

.SBTTL 



13; 12 



M9 

PAGE 39 



SEQ 116 



5093 








5094 








5095 








5096 








5097 








5098 








5099 








5100 








5101 








5102 








5103 








5104 








5105 








5106 








5107 








5108 








5109 








5110 








5111 








51i2 








5113 


100342 






5114 


100342 








100342 


014501 




5115 


100344 


010546 




5116 


100346 


010102 




5117 


100350 


062702 


000002 


5118 


100354 


012703 


100526 


5119 


100360 


012704 


100456 


5120 


100364 


012705 


100460 


5121 


100370 


012737 


000012 


5122 


100376 


005037 


100542 


5123 


100402 


161411 




5124 


100404 


005612 




5125 


100406 


161512 




5126 


100410 


002403 




5127 


100412 


005237 


100542 


5128 


100416 


0C0771 




5129 


100420 


062411 




5130 


100422 


005512 




5131 


100424 


062412 




5132 


100426 


022525 




5133 


100430 


052737 


000060 


5134 


100436 


113723 


100542 


5135 


100442 


005327 




5136 


100444 


000000 




5137 


100446 


001353 




5138 


100450 


105023 




5139 


100452 


012605 




5140 


100454 








100454 


000207 




5141 


100456 






5142 


100456 


145000 




5143 


100460 


035632 




5144 


100462 


160400 




5145 


100464 


002765 




5146 


100466 


113200 




5147 


100470 


000230 





BINDEC CONVERT A 32 BII BINARY NUMBER TO DECIMAL 



FUNCTIONAL DESCRIPTION; 

THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUMBER TO 
A DECIMAL NUMBER REPRESENTED AS AN ASCI? STRING. 



INPUTS - 

OUTPUTS - 
SIDE EFFECTS 



1 >1 - THE ADDRESS OF THE FIRST WORD OF BINARY DATA 
BITS 0-15. THE SECOND WORD, BITS 16-31, IS 
EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 

THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 

- NONE 



REGISTER USAGE - 



Rl POINTS 

R2 POINTS 

R3 POINTS 

R4 POINTS 



TO BITS 0-15 OF BINARY DATA 
TO BITS 16-31 OF BINARY DATA 
TO THE OUTPUT STRING 
TO THE POWERS OF 10 TABLE 



100444 



100542 



BINDEC j 


• 






P$POP 


Rl 




MOV 


R5.-CSP) 




MOV 


R1.R2 




ADD 


02, R2 




MOV 


0DECSTR.R3 




MOV 


0TENPWR.R4 




MOV 


0TENPWR*2,R5 




MOV 


010. ,40$ 


10$: 


CLR 


PART 


20$; 


SUB 


(R4).CR1) 




SBC 


CR2) 




SUB 


CR5),(R2) 




BLT 


30$ 




INC 


PART 




BR 


20$ 


30$; 


ADD 


(R4)*,(P1) 




ADC 


(R2) 




ADD 


(R4)*,('*2) 




CMP 


(R5)»,(*5)» 




BIS 


O'O.PART 




MOVB 


PART.CR3)* 




DEC 


(PC)* 


40$; 


.WORD 







BNE 


10$ 




CLRB 


(R3)* 




MOV 


(SP)*.R5 




RETURN 




TENPWR; 


145000 

35632 

160400 

2/65 

113200 

230 





j PUT ADDRESS OF BINARY WORD INTO Rl 

MOV -CR5),R1 

I PUT ADDRESS OF SECOND WORD INTO R2 

; PUT ADDRESS OF OUPUT STRING INTO R3 
; ADDRESS OF TEN POWER TABLE 



CLEAR PARTIAL COUNTER 
SUBTRACT 10 POWER 



j BRANCH IF 10 POWER TOO LARGE 
ELSE ADD 1 TO PARTIAL 
LOOP 

RESTOP.E BINARY WORDS 
AND POINT R4 TO NEXT TABLE ENTRIES 



j CHANGE PARTIAL TO ASCII 

; AND PUT INTO OUTPUT STRING 

I HAVE WE DONE ALL 10 DIGITS 

5 IF NO. BRANCH 

j IF YES, TERMINATE WITH ZERO 



RTS 



PC 



I 1.0 E09 
; 1.0 E06 
J 1.0 EO 7 



N9 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 c 
BINDEC CONVERT A 32 bIT BINARY NUMBER TO DECIMAL 



5148 


100472 


041100 


5149 


100474 


000017 


5150 


100476 


103240 


5151 


100500 


000001 


5152 


100502 


023420 


5153 


100504 


000000 


5154 


100506 


001750 


5155 


100510 


000000 


5156 


100512 


000144 


5157 


100514 


oooooo 


5158 


100516 


000012 


5159 


100520 


oooooo 


5160 


100522 


OO0001 


5161 


100524 


oooooo 


5162 






5163 


100526 




5164 


100542 


oooooo 



MAR -84 
L 


13 


12 


PAGE 


39-1 






041100 










} 


1.0 E06 


17 














103240 










• 


1.0 E05 


1 














23420 










; 


1.0 E04 

















1750 










• 


1.0 E03 

















144 










J 


1.0 E02 

















12 










• 


1.0 E01 

















1 










< 


1.0 EOO 


















DECSTRj: .BLKB 12. 
PART;: .WORD 



SEQ 117 



12 BYTES FOR ASCIZ OUTPUT STRING 
PARTIAL COUNTER 



B 1 



CVNIAAO 
COMMAND 


DEQNA NI EXERCISER DIA( 


LINE TRAVERSE ROUTINES 


5166 








5167 








5168 








5169 








5170 








5171 








51V 








5173 








5174 








5175 








5 1 76 








51 :: 








5178 








51 "n 








5ieo 








5181 








5182 








5183 








5184 


100544 






5185 


100544 


013704 


003204 


5186 


100550 


015703 


003206 


5187 


100554 


121327 


000003 


5188 


100560 


003405 




5189 


100562 


105714 




5190 


100564 


001441 




5191 


100566 


121327 


000013 


51*?2 


100572 


003023 




5193 


100574 


111301 




5194 


100576 


006301 




5195 


100600 


016101 


100614 


5196 


100604 


062701 


100614 


519/ 


100610 


0O47U 




5198 


100612 


000760 




5199 








5200 








5201 


100614 


000114 




5202 


100616 


000134 




5203 


100620 


000152 




5204 


100622 


000162 




5205 


100624 


000204 




5206 


100626 


000270 




5207 


100630 


000612 




5208 


100632 


000656 




5209 


100634 


000270 




5210 


100636 


000256 




5211 


100640 


000744 




5212 








5213 








5214 








5215 


100642 


121314 




5216 


100644 


001403 




52! 7 


100646 


004737 


100712 


5218 


100652 


000 740 




5219 


100654 


005204 




5220 


100656 


004 737 


1006 72 


5221 


100662 


062 703 


000004 


5222 
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SEQ 118 



.SBTTL 



COMMAND LINE TRAVERSE ROUTINES 



P*TRV SUBROUTINE 

PARSE THE COMMANO LINE SUBROUTINE 
TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
PARSING DIRECTIONS FROM "CLI PARSING NODES" 
REGS USEDs 

R1.R5-SCRATCH 

R2-ACTI0N CODE PARAMETER FROM TREE 
R3-PARSE TREE POINTER 
R4-INPUT STRING POINTER 
CALLING SEQUENCE: 

JSR PC.PiTRV 



PSNUM-NUMERIC CODE FROM DATA 



PITRV: 



PITR5} 



101 



t '0$} 



I NOT A 
30$} 



40*t 



MOV 


P*8UFA,R4 


MOV 


PUREE, R3 


CMPB 


<R3),*3 


BLE 


10* 


TSTB 


(R4) 


BEQ 


PIEXIT 


CMPB 


(R3),«ll. 


BGT 


301 


MOVB 


(R3),Ri 


ASL 


Rl 


MOV 


20$(R1),R1 


ADD 


020*. Rl 


JSR 


PC.(Rl) 


BR 


PITR5 


.WORD 


TRVERR 20* 


.WORD 


TRVEXI 20* 


.WORD 


TRVBR 20* 


.WORD 


TRvpif 20* 


.WORD 


TRVSPA 20* 


.WORD 


TRVNLH-20* 


.WORD 


TRVALP 201 


.WORD 


TRVALN 20* 


.WORD 


TRVOCT 20* 


.WORD 


TRVDEC 20* 


,W03D 


TRVSTR-20* 


SPECIAL 


CODE 


CMPB 


(R5),(R4) 


BEQ 


40* 


JSR 


PC.TRVBRC 


BR 


PITR5 


INC 


R4 


JSR 


PC. TRVACT 


ADO 


*4,R3 



iSEE IF ONE OF FIRST THREE SPECIAL CODES 

I IF YES, DON'T CHECK INPUT STRING 

iSEE IF ANY CHARS LEFT IN INPUT STRING 

I BR IF NO 

iSEE IF SPECIAL CLI CHAR COOE OR ASCII 

i BR IF REGULAR ASCII CHAR. 

iGFT SPECIAL CHAR CODE INTO R5 

jBUILO TRAVERSE ROUTINE ADDRESS 

j JSR TO SPECIAL CLI TRAVERSE ROUTINE 
jGO SEE IF MORE OF STRING LEFT 



TABLE FOR "CLI FUNCTIONS" 



i TRAVERSE 

li 
J 2 
l* 
|4 

i 5 
16 
I 7 
J8 
»9 
1 10 



|Sf> I* FIRST CHAR OF STRING IS A mTQh 

iBR U A MATCH 

lU NOT A MATCH, GO TAKE MISS BRANCH 

1 THEN GO BACK PT'Ci TO MISS NODf- 

I I* A MATCH, INCR. Char pointer 

i GO 00 ACTION OH INtD B> 

I ACTION CODE IN CLI NODE, THEN 

t ADJUST PTR TO NEXT Cl. I NODE 



CIO 



mm ?w*Mvm Q mhm* MACR0 mao ° 
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SEQ 119 



tow 

522s 

5226 

5227 
522a 

5229 

5230 
5231 
5232 

5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 

524 7 
5248 
5249 
5250 
52_>1 
5252 
5253 
5254 
5255 
5256 

525 7 
5258 
V59 
5260 
5261 
5262 
5263 
5264 
5265 
5266 

526 7 
5268 
5269 
52/0 
5271 
52/2 
52/3 
52/4 
52/5 
52 /6 
52// 
52 78 
52/9 



100666 
1006 7C 



1006/2 
1006 76 
100/02 
100706 
100710 



100712 
100716 
100720 



100/22 
100726 



100730 
100734 
100742 
^00744 



100750 
100754 
100760 
100762 



100766 
100772 



1007/6 
101002 
101006 
101010 
101014 



101020 
101022 
101026 
101030 
101032 
101034 

101036 
101042 
101044 



000/32 
00020 7 



116302 
042702 
013/01 
004/U 
000207 



016301 
060103 
00020/ 



062 703 
000207 



00473/ 
112737 
005 726 
000137 



004 73 7 
10503 7 
005726 
000137 



004 73 7 
000137 



004737 
105737 
001402 
000157 
000137 



005001 
121427 
001003 
005204 
005201 
000 7 72 

121427 

001005 
005204 



BR P$TR5 
PSEXIT: RTS PC 



{RETURN FROM PARSER 



000001 
177400 
003210 



000002 



00 N 004 



1006 72 

177777 003221 

100670 



1006/2 
003221 

1006 70 



100672 
100/) 2 



1006/2 
003221 

100 712 
100722 



000011 



I 



{GOTO USER ACTION ROUTINE 
TRVACT; MOVB 1(R3),R2 

BTC *177400.R2 
MOV PIACT.R1 
JSR PC.(Rl) 
RTS PC 



i TAKE DRANCH 
TRVBRC: MOV 
ADD 
RTS 



IN 



TREE 

2(R3),R1 
R1.R3 
PC 



i NO BRANCH TAKEN 



TRVNOB; 



ADD 
RTS 



*4,R3 

PC 



j ERROR HANOLING 

TRVERRj JSR PC, TRVACT 

MOVB •-I.PIGDBD 

TST (SP)» 

JMP PtEXir 



{EXIT ACTION 
TRVEXI: uSR 
CLRB 
TST 
JMP 



CODE 

PC, TRVACT 
PIGDBD 
(SP)> 
PIEXIT 



jBRANCH 
TRVBRt 



ACTION 

JSR 
JMP 



COOl- 
PC, TRVACT 
TRVBRC 



iBRANCH-IF ACTION CODE 

TRVBIF; JSR PC, TRVACT 

TSTB PIGOBU 

BEQ 10$ 

JMP TRVBRC 

101: JMP TRVNOB 

jSPACn ACTION CODE 



000040 



TRVSPAj 


CLR 


Rl 


10$: 


CMPB 


tR4),011 




ONE 


20$ 




INC 


R4 




INC 


Rl 




BR 


10$ 


20$ t 


CMPB 


CR4),04O 




UN*- 


.101 




INC 


R4 



jGET ACTION CODE FROM CLI NODE 
{CLEAR ANY SIGN EXTENSION 
iGFT ADDRESS OF CLI ACTION ROUTINE 
{GO DO ACTION DEFINED BY CODE 
iRETURN TO CALLING CODE 



jGET BRANCH 
l ANO POINT 
I RETURN TO 



DISPLACEMENT FROM TREE 
R3 TO THE "MISS" NODE 
P$TRV 



j THINGS OK, UPDATE R3 TO POINT TO NEXT 
t NODE AND RETURN TO P$TRv 



j TAKE ERROR ACTION 

j SET ERROR RETUPN FLAG 

jGET RID OF -JSR PUSH TO TRVERR" 

{RETURN DIRECT TO EXIT OF P$TRV ROUTINE 



{TAKE EXIT ACTION 

{SET GOOD/BAD FLAG TO "SUCCESS CO)" 

jGET RID OF "JSR PUSH TO TRVEXI" 

j RE TURN DIRECT TO EXIT OF P$TRV ROUTINE 



jGO TAKE BRANCH ACTION 



iSEE If P$GDBO SET OR CLEARED Bt ACTION 

I IK CLEAR FALL THRU TO NEXT NODE 

I ELSE FAKE THE "MrSS" BRANCH 

{JUST UPDATE TO NEXT NODE IF THINGS OK 



I CLEAR "SPACE OR TAB FOUNO" FLAG 
I SEE IF CHAR. IN CMO LINE- TAB 
iBR IF NO, NOT A TAB 
tINC INPUT STRING POINTER 
{INDICATE A TAB FOUND 
{GO CHECK NEXT CHAR 

{SEE IF CHAR. IN CMO LINE- SPACE 

iHR IF NO, NCN SPACE OR NQN-TAQ CHAR, 

j INC INPUT STRING POINTER 
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SEQ 120 



5280 

5081 
528.? 
5263 
5284 
5285 
5286 
528 7 
5288 
5289 
5290 
5291 
5292 
5293 

5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 



5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
532/ 
5328 
5329 



101046 
101050 
101052 
101054 
101056 
101062 
101066 



101072 
101100 
101104 
101104 
101112 
101112 
101114 
101116 
101122 
101124 
101126 
101132 
101134 
101142 

101144 
101150 
101152 
101156 
101160 
101166 
101170 
101174 
101176 
101176 
101202 
101206 
101210 
101212 
101216 
101224 

101226 
101232 
101234 
101236 
101240 

101242 
101244 
101246 
101250 
101252 
101256 
101260 
101264 
101*? 70 
101272 



005201 
000764 
005701 
00140* 
004737 



012737 
000137 



010546 
005001 
121427 
001001 
000406 
121427 
001004 
112737 
005204 

121427 
002434 
121427 
003426 
123727 
001417 
121427 
003022 

012746 
012746 
010600 
104417 
062706 
112737 
0004 75 

121427 
003003 
005204 
005201 
000741 

005701 
001465 
010405 
160105 
005037 
112502 
162702 
00633 7 
103440 
01373/ 



100672 



000137 100722 
000137 10071? 



000012 
101112 



012737 000010 



000053 

000055 
177777 

000060 
000067 
003216 
000071 



052222 
000001 



000004 
177777 



000071 



003216 
003216 



003217 



000012 



INC Rl 

BR 10$ 

30$: TS1 Rl 

BEQ 40$ 

JSR PC.TRVACT 

JMP TRVNOB 

40$ s JMP TRVBRC 



TRVDEC: MOV 01O.,P$RADX 

JMP TRVNMA 

TRVOCT: {(SAME AS TRVNUM SINCE 

TRVNUM: MOV *8 . ,P$RADX 

TRVNMA j PUSH R5 

CLR Rl 

CMPB (R4),fr* ♦ 

BNE 10$ 

BR 20 5 

10$: CMPB (R4),*' - 

BNE 30$ 

MOVB *-l,P$RADX*l 

20$: INC R4 

30$: CMPB (R4),060 

BIT 60$ 

CMPB (R4),067 

BLE 50$ 

CMPB P$RADX,01O. 

BFQ 40$ 

CNPB (R4),07l 

BGT 60$ 

PRINTF OCLIBRX 



003221 



003214 

000060 
003214 

003214 003212 



{INDICATE A SPACE FOUND 

jGO CHECK NEXT CHAR 

j SEE IF ANY SPACES OR TABS FOUND 

{BR IF NO, TAKE NO ACTION 

jGO TAXE ACTION IF ANY FOUND 

{JUST GO UPDATE R3 TO NEXT NODE IF OK 

(TAKE BRANCH (MISS) IF NONE FOUND 



tUSE DECIMAL AS RADIX AND ASSUME * 

DEFAULT RADIX IS OCTAL) 

»USE OCTAL AS RADIX AND ASSUME ♦ 

MOV R5.-CSP) 
{CLEAR DIGIT COUNTER 
{SEE IF THERE'S A ♦ SIGN THERE 
; BR IF NO 

I ELSE P$RADX ALREADY SAYS ♦ , JUST BR 
{SEE IF THERE'S A - SIGN THERE 
i BR IF NO 

{SET "MINUS FLAG" (HI BYTE OF P$RADX) 
,BUMP R4 TO POINf TO FIRST CHAR 

{SEE IF CHAR. LESS THAN A "0** 

{BR IF YES (NOT NUMERIC) 

{SEE IF CHAR. GREATER THAN A "7" 

j BR IF YES 

{SEE IF IN DECIMAL MODE 

{ BR IF YES (CAN USE HIGHER LIMIT) 

jSEE IF DIGIT WAS A 8 OR 9 

{BR IF NON -NUMERIC 

{ELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 





MOVB 


1,P$GDBD 




BR 


110$ 


40$: 


CMPB 


(R4),071 




BGT 


60$ 


50$: 


INC 


R4 




INC 


Rl 




BR 


30$ 


60$: 


TST 


Rl 




BEQ 


110$ 




MOV 


R4 ,R5 




SUB 


RI.R5 




CLR 


PSNUM 


70$: 


MOVB 


(H5)..R2 




SUB 


060, R2 




ASl 


P$NUM 




BCS 


100$ 




MOV 


P*NUM,P$CNT 



MOV 


OCLIBRX, -(SP) 


MOV 


*1.-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADO 


04, SP 



{SET ERROR RETURN FLAG 

{ PRINT ERROR ANO TAKE MISS 



"9- 



{SEE IF CHAR, GREATER THAN A 
{BR IF YES (NOT NUMERIC) 
{UPDATE CMC LINE PTR TO NEXT CHAR 
{INDICATE A NLHERIC FOUND 
{GO LOOK AT NEXT CHAR, 

{SEE IF FOUND AN1 NUMERICS 
)BR IF NO, TAKE "MISS" BRANCH 
{GET POINTER lO START OF NUMERIC 



STRING 



l CLEAR LOC> WHERE VALUE WILL BE STORED 
{GET ASCII CHAR AND CONVERT IT To A o 

{SHUT CURRENT VALUE 10 MAKE ROOM 

{ERROR IF NIWBER TOO BIG 

{SAVE FOR LATER IN CASE DECIMAL R.ADU 



CVNIAAO DEQNA NI EXERCISER OIAG MACRO M1200 
COMMAND LINE TRAVERSE ROUTINES 



ElO 



5331 


101300 


006337 


003214 


533? 


101304 


103432 




5333 


101306 


006337 


003214 


5334 


101312 


103427 




5335 


101314 


123727 


003216 000012 


5336 


101322 


001004 




5337 


101324 


063737 


003212 003214 


5338 


101332 


103417 




5339 


101334 


060237 


003214 


5540 


101340 


103414 




5341 


101342 


005301 




5342 


101344 


001344 




5343 


101346 


105737 


003217 


5344 


101352 


001402 




5345 


101354 


005437 


003214 


5346 


101360 








101360 


012605 




534? 


101362 


004737 


100672 


5348 


101366 


000137 


100722 


534 9 








5350 


101372 








101372 


012746 


052175 




101376 


012746 


000001 




101402 


010600 






101404 


104417 






101406 


062706 


000004 


5351 


101412 


112737 


177777 003221 


5352 


101420 








101420 


012605 




5353 


101422 


000137 


100712 


5354 








5355 








5356 


101426 


005001 




5357 


101430 


121427 


000101 


5358 


101434 


002406 




5359 


101436 


121427 


000132 


5360 


101442 


003003 




5361 


101444 


005204 




5362 


101446 


005201 




5363 


101450 


000767 




5364 


101452 


005701 




5365 


101454 


001404 




5366 


101456 


004737 


100672 


5367 


101462 


000137 


100722 


5368 


101466 


000137 


100712 


5369 








5370 


101472 


005001 




53 71 


101474 


121427 


000060 


5372 


101500 


002417 




5373 


101502 


121427 


000072 


5374 


101506 


003003 




53 75 


101510 


005204 




5376 


1015!^ 


005201 




5377 


101514 


^0076 7 




53 78 


101516 


121427 


000101 


53/9 


101522 


002406 




5380 


101524 


12142/ 


000132 



80$: 



90$: 



100$: 



MAR -84 


13:12 PAGE 40- 


ASL 


P$NUM 


BCS 


100$ 


ASL 


P$NUM 


BCS 


100$ 


CMPB 


P$RADX,01O, 


BNE 


80$ 


ADD 


P$CNT,P$NUM 


BCS 


100$ 


ADD 


R2,P$NUM 


BCS 


100$ 


DEC 


Rl 


BNE 


70$ 


TSTB 


P$RADX*1 


BEQ 


90$ 


NEG 


P$NUM 


POP 


R5 


jSR 


PC.TRVACT 


JMP 


TRVNOB 


PRINTF 


OCLINBG 



SEQ 121 



110$: 



MOVB *-l ( P$GDBD 

POP R5 

JMP TRVBRC 



TRVALP: 


CLR 


Rl 


10$: 


CMPB 


(R4),01O1 




BLT 


20$ 




CMPB 


(R4),0132 




BGT 


20$ 




INC 


R4 




INC 


Rl 




BR 


10$ 


20$: 


TST 


Rl 




BEQ 


30$ 




JSR 


PC.TRVACT 




JMP 


TRVNOB 


30$: 


JMP 


TRVBRC 


TRVALNt 


CLR 


Rl 


10$: 


CMPB 


(R4),460 




BLT 


30$ 




CMPB 


(R4),f>72 




BGT 


20$ 




INC 


R4 




INC 


Rl 




BR 


10$ 


20$: 


CMPB 


(R4),<U01 




BLT 


30$ 




CMPB 


(RO,n32 



} ERROR IF NUMBER TOO BIG 

{ERROR IF NUMBER TOO BIG 
{SEE IF DECIMAL RADIX 
j BR IF NOT EQUAL 

{ERROR IF NUMBER TOO BIG 

jERROR IF NUMBER TOO BIG 



j SEE IF NUM WAS PRECEDED BY A - SIGN 
l BR IF NO 

j ELSE NEGATE THE NUMBER BEFORE LEAVING 
iRESTORE R5 

MOV (SP)*.R5 

j SINCE NUMERIC FOUND, GO TAKE ACTION 
I GO POINT R3 TO NEXT NODE 



OCLINBG, -(SP) 

•l.-CSP) 

SP.RO 

C$°NTF 

04.SP 



;PRINT NUMBER TOO BIG ERROR 

MOV 
MOV 
MOV 
TRAP 
ADD 

{SET ERROR RETURN FLAG 

{RESTORE fir. 

MOV (SP)*,R5 

j TAKE "Ml'.S" BRANCH 



{CLEAR ALPHA FOUND FLAG 

j SEE IF CHAR, LESS THAN A "A" 

;BR IF YES (NOT ALPHA) 

jSFF IF CHAR, GREATER THAN A "Z" 

{BR IF YES (NOT ALPHA) 

{UPDATE CMO LINE PTR TO NEXT CHAR 

{INDICATE AN ALPHA WAS FOUND 

{GO LOOK AT NEXT CHAR. 

{SEE IF AN>" ALPHA'S WERE FQUNO 

j BR IF NO 

{IF ANY FOUNO TAKE ACTION 

{THEN UPDATE R3 TO NEXT NODE -NO BRANCH 

{NONE FOUND, TAKE MISS BRANCH 

{CLEAR ALPHANUM FOUND FLAG 

{SEE IF CHAR. LESS THAN A "0" 

{BR IF YES (NOT NUMERIC OR ALPHA) 

i SEE IF CHAR. GREATER THAN A "9" 

{BR IF YES (NOT NUMERIC) 

{UPDATE CMD LINE P1R TO NEXT CHAR, 

i INDICATE A NUMERIC FOUND 

{GO LOOK AT NEXT CHAR. 

{SEE IF CHAR. LESS THAN A "A 1 

{BR If YES (NOT ALPHA) 

I SEE IF CHAR, GREATER THAN A "/" 



10 
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5M3 T PJfi G MAC 


RO M1200 22 


-MAR -84 


13:12 PAGE 40-4 




MAND 


I INF. TR 


AVERSE R 


OUTlNfeS 










5381 


101530 


003003 






BGT 


30$ 




5382 


101532 


005204 






INC 


R4 




5383 


101534 


005201 






INC 


Rl 




5384 


101536 


000756 






BR 


10$ 




5385 


101540 


005701 




30$; 


TST 


Rl 




5386 


101542 


001404 






BEQ 


40$ 




5387 


101544 


004737 


100672 




JSR 


PC.TRVACT 




5388 


101550 


000137 


100722 




JMP 


TRVNOB 




5389 


101554 


000137 


100712 


40*: 


JMP 


TRVBRC 




5390 


101560 
101560 


010546 




TRVSTR: 


PUSH 


R5 




5391 


101562 


010401 






MOV 


R4.R1 




5392 


101564 


010305 






MOV 


R3.R5 




5393 


101566 


062705 


000006 




AOD 


06, R5 




5394 


101572 


005037 


003212 




CLR 


P$CNT 




5395 


101576 


105715 




10$: 


TSTB 


(R5) 




5396 


101600 


001411 






BEQ 


20$ 




5397 


101602 


105711 






TSTB 


(Rl) 




5398 


101604 


001407 






BEQ 


20} 




5399 


101606 


121115 






CMPB 


(R1),CR5) 




5400 


101610 


001005 






BNE 


20$ 




5401 


101612 


005237 


003212 




INC 


P$CNT 




5402 


101616 


005201 






INC 


Rl 




5403 


101620 


005205 






INC 


R5 




5404 


101622 


000765 






BR 


10$ 




5405 
















5406 


101624 


005737 


003212 


20$: 


TST 


P$CNT 




5407 


101630 


001407 






BEQ 


30$ 




5408 


1C1632 


010104 






MOV 


P1.R4 




5409 


101634 
101634 


012605 






POP 


R5 




5410 


101636 


004737 


100672 




JSR 


PC.TRVACT 




5411 


101642 


066303 


000004 




AOD 


4(R3).R3 




5412 


101646 


000207 






RTS 


PC 




5413 
















5414 


101650 

101650 


012605 




30$ t 


POP 


R5 




5415 


101652 


000137 


100712 




JMP 


TRVBRC 




5416 














• 



SEQ 122 

BR IF YES CNOT ALPHA) 

UPDATE CMD LINE PTR TO NEXT CHAR 

INDICATE AN ALPHA FOUND 

GO LOOK AT NEXT CHAR. 

SEC IF ANY ALPHANUM'S WERE FOUND 

BR IF NO 

IF ANY FOUND TAKE ACTION 

THEN UPDATE R3 TO NEXT NODE -NO BRANCH 

NONE FOUND, TAKE MISS BRANCH 

SAVE R5 

MOV R5.-CSP) 
POINT Rl TO CMD STRING 

POUNT R5 TO MATCH STRING FROM CLI NODE 

CLEAR CHAR MATCH COUNT 

SEE IF END OF MATCH STRING YET 

BR IF YES 

SEE IF END OF CMD LINE YET 

BR IF YES 

SEE IF CHARACTERS MATCH 

BR IF NO 

MATCH -INCREMENT MATCH COUNT 

UPDATE STRING POINTERS 

BR TO CONTINUE CHECKING CHARS. 

WHEN DONE SEE IF ANY MATCHES FOUNO 
BR IF NO, GO TAKE THE MISS BRANCH 
POINT CMD POINTER TO END OF STRING 6 
RESTORE R5 

MOV (SP)*.R5 
IF A MATCH FOUND, GO DO MATCH ACTION 
UPDATE R3 TO NEXT NODE (NO BRANCH) 
(NO RETURN THRU TRVNOB SINCE DIFFERENT 
DISPLACEMENT DUE TO MATCH STRING) 
RESTORE R5 

MOV (SP)».R5 
GO TAKE BRANCH 
(PARSED OK), -1 IF ILL CMD 



9}(Wfi6 OD !8SyjE E g&BfiJiS§ R L?SI G I nP6? AB6Sg§s 
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SEQ 123 



5418 

5410 

54 1 ?0 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

54 35 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

544 7 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

546 7 

5468 

5469 

54 70 

54 71 

54 72 

54 7 *> 

54 74 



101656 
101660 
101664 
101666 
101672 
101674 
101700 
101702 
101706 
101710 
101714 
101716 
101720 
101722 
101724 
101732 
101734 



j - -» 



005001 
121427 
001423 
121427 
002414 
121427 
001454 
121427 
001420 
121427 
003003 
005204 
005201 
000 756 
112737 
00C464 
005701 



000000 
000040 
000042 
000057 
000132 



177 7 7? 003221 20$ 



TRVADR: 
10$; 



.SBTTL TRVADR - TRAVERSE COMMAND LINE INPUT ADDRESS 



TRVADR 



TRAVERSE COMMAND LINE INPUT ADDRESS 



THE 



THIS ROUTINE IS CALLED CY TWO DIFFERENT ACTION ROUTINES. 
NOOE ACTION ROUTINE CALl.J IT TO PrfttSE THROUGH THE NODE 
ADDRESS INPUT BY THE OPERATOR. THE OPRSEL ACTION ROUTINE 
CALLS TRVAOR TO PARSE THROUGH THE "OPERATOR SELECTED" MESSAGE 
WHICH HAS BEEN INPUT IN THE COMMAND LINE. TOR A NODE ADDRESS, 
THE ROUTINE LOOKS FOR A '/' AS A DELIMETER FOR THE ADDRESS, 
AND REPLACES THE / WITH A NULL BYTE FOR USE BY THE ADDRESS 
PACKING ROUTINE. WHEN CALLED BY THE OPRSEL ROUTINE, A 
IS EXPECTED AS THE DELIMETER FOR THE OPERATOR SELECTED MESSAGE. 
IF A NULL STRING IS ENTERED, AN ERROR MESSAGE IS PRINTED. 



INPUTS 
OUTPUTS 



R4 - POINTS TO THE BEGINING OF THE ADDRESS 

OR MESSAGE IN THE COMMAND LINE 
SUMMARIZED IN TABLE BELOW 



COMMAND LINE 




OUTPUTS 






INPUT CONDITION 


PtGDBD 


R4 POINTS TO , 


CFLAG CONTAINS 


PiMERR 


ILLEGAL CHAR, 


-1 


ILL. CHAR. 




N/A 


/-DR. /ASSIST 





END OF LINE 


CASIST 


N/A 


ADR. /TARGET 










ADR./ 





END OF LINE 


CTARGT 


N/A 


ADR. 










ADR, /CHAR. OR 










"OPR SEL/CHAR, 










OTHER THAN "A" 


•1 


/ 


CTARGT 


N/A 


"V" OR BLANK 










• • M 





CHAR, AFTER " 




-1 


"OPR SEL" 





CHAR. AFTER " 


OPRSEL 






30$ 



CALLING PROCEDURE 
REGISTER USAGE - 



CLR Rl 

CMPB (R4),tf0 

BEQ 30$ 

CMPB (R4),tf40 

BLT 20$ 

CMPB CR4).'>42 

BEQ 70$ 

CMPB (H4),#57 

BED 50$ 

CMPB (R4),0132 

BGT 20$ 

INC R4 

INC Rl 

BR 10$ 

MOVB d 1,P$G0BD 

BR 90$ 

TST Rl 



JSR PC TRVADR 

Rl IS USED AS A COUNTER TO REPORT ERROR MESSAGES 

IF NULL STRINGS ARE ENTERED. 
R4 POINTS TO THE NEXT CHAR. IN THE COMMAND LINE 



{CLEAR HEX DIGIT FOUND FLAG 

{SEE IF NUL CHAR. 

t IF YES, RETURN 

{SEE IF ILLEGAL CHARACTER 

;IF YES; BRANCH TO ERROR ROUTINE 

.^F TF CHAR. IS A 

; if YES , BRANCH TO 70$ 

rX\L IK CHAR. IS A "/" 

irf&ANCH IF YES 

{SEE IF CHAR. GREATER THAN -F •• 

I If YES- ILLEGAL CHAR. 

{UPDATE CMD LINE POINTER TO NEXT CHAR 

{INCIDATE A VALID CHAR, FOUND 

{LOOK AT NEXT CHAR. 

{SET ERROR FLAG 

{RETURN 

j SEE IF VALID CHARACTERS FOUND 



H10 



m> 


D( rSM 


h i mk 


WiW 


MACRO M 

INPUT AD 


m* 
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SEQ 124 


54 75 


101 7 3f. 


001772 








BEQ 


20$ 


IF NO, ILLEGAL CHAR. 


54 76 


101740 


01.2737 


000000 


003734 


40$: 


MOV 


*CTARGT,CFLAG j 


SET TARGET FLAG 


5477 


101746 


000456 








BR 


90$ 


RETURN 


54 78 


101750 


005701 






50$ j 


1ST 


Rl 1 


SEE IF VALID CHARACTERS FOUND 


54 79 


101752 


001764 








BEQ 


20$ i 


IF NO, ILLEGAL CHAR. 


5460 


101754 


112714 


000000 






MOVB 


*0,(R4) 


IF YES, REPLACE "/" WITH NULL CHAR. 


5481 


101760 


005204 








INC 


R4 


UPDATE CMD. LINE POINTER TO NEXT CHAR. 


5482 


101762 


121427 


000000 






CMPB 


(R4),«0 j 


IS NEXT CHAR. NULL 


548? 


101766 


001764 








BEQ 


40$ 


IF YES, TAKE DEFAULT OF TARGET 


5484 


101770 


121427 


000101 






CMPB 


CR4),0'A 


IS NEXT CHAR. "A" 


5485 


101774 


001412 








BEQ 


60$ 


IF YES, BR 60$ 


548b 


101776 


121427 


000124 






CMPB 


(R4),<r T 


IS NEXT CHAR, "T" 


548 7 


102002 


001756 








BEQ 


40$ 


IF YES, SET TARGET FLAG 


5488 


102004 


112737 


177777 


003221 




MOVB 


#-l,P$GDBD 


ELSE, SET ERROR FLAG, 


5489 


102012 


005304 








DEC 


R4 


READJUST COMMAND LINE POINTER 


5490 


102014 


112714 


000057 






MOVB 


4' /.CR4) 


AND REPLACE / IN CMD LINE TO FIX ERROR 


54^1 


102020 


00074 7 








BR 


40$ 


SET TARGET FLAG ANO RETURN 


549,? 


102022 


0127 37 


000001 


004734 


60$: 


MOV 


OCASIST.CFLAG 


SET ASSIST FLAG 


5493 


102030 


000425 








BR 


90$ 




5494 


102032 


005701 






70$: 


TST 


Rl 


SEE IF ANY CHARACTERS TYPED 


5495 


1O2034 


001407 








BEQ 


80$ 


IF NO, BRANCH TO 80$ 


5496 


102036 


112714 


000000 






-10VB 


00, (R4) 


ELSE, REPLACE ' '*' WITH NULL 


5497 


102042 


012737 


000006 


003734 




MOV 


OOPRSEL,CFL/\G 


,SET OPERATOR SELECTED FLAG 


5498 


102050 


005204 








INC 


R4 




5499 


102052 


000414 








BR 


90$ 


{RETURN 


5500 


102054 
102054 
102060 
102064 
102066 
1020 70 


012746 
012746 
010600 
104417 
062706 


053076 
000001 

000004 




80$: 


PRINTF 


ONULSTR 


PRINT NULL STRING ERROR MESSAGE 

MOV *NULSTR # -CSP) 
MOV 01,-CSP) 
MOV SP,RO 
TRAP C$PNTF 

ADD 04, SP 


55C1 


102074 


112737 


177777 


003223 




MOVB 


*-l,P$MERR 


{SET OPER. SELECTED MSG. ERROR FLAG 


550? 


102102 


005204 








INC 


R4 


{MOVE CMD. LINE POINTER TO NEXT CHAR, 


5503 


102104 


000207 






90$: 


RTS 


PC 


{RETURN 



no 



RSttWcB&Wfi SicHBB 
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SEQ 125 



5505 
5506 

550? 

5508 

5509 

5510 

551] 

551? 

5515 

5514 

5516 
551^ 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5526 
5527 
5528 



5530 
5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5540 
5541 
5542 
5543 



♦SBTTL 



RF.PORT CODING SECTION 



102106 
102106 



THE REPORT COOING SECTION CONTAINS THE 

"PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS 



BGNRPT 



LSRPT 



102106 
102112 
102112 
102114 



004737 105170 

000167 
000000 



102116 

102116 
102116 



{ THIS SECTION, WHICH IS OPTIONAL, CONTAINS THE CODE FOR PRINTING 

i STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 

! EXECUTED BY THE OPERATOR COMMAND "PRINT" OR BY THE MACRO CALL 

; "DORPT", USF. THE PRINTS MACRO TO PRINT THE INFORMATION. 

i USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 

j THE PROGRAMMER'S RESP0NS1BILTY TO DEVISE AND IMPLEMENT THE 

i FORM ANO CONTENT OF THE STATISTICS. 

JSR PC.ACTSUM 

EXIT RPT 

.WORD J$JMP 
.WORD L10006-2-. 

: INSERT LOCAL STORAGE THAT IS USED ONLY 
; DURING THE REPORT SECTION. 

} INSERT MESSAGES THAT ARE USED ONLY 
; DURING THE REPORT SECTION. 

.EVEN 

ENDRPT 



104425 



L 10006; 



TRAP 



CSRPT 



^J 



1.0 



CVNIAAO DfcUNA Nl 
PROTECTION TABLE 

5545 

5546 
554 .' 
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SEQ 126 



5548 
5549 
5550 

555 L 

5552 
5553 
5554 
5556 
5557 
5558 
5559 
5560 
556 1 
5562 
5563 
5564 
556*. 
5566 



102120 
102120 
102120 

102122 
102124 
102126 



1 / 7 7 7 7 
177777 
177777 



.SBTTL 



PROTECTION TABLE 



THIS TABLE IS USED BY THE RUNTIME SERVICES 
TO PROTECT THE LOAD MEDIA. 



BGNPROT 



LJPROT: : 
jOFFSET INTO P-TABLE FOR CSR ADDRF.SS 
jOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
j OFFSET INTO P-TABLE FOR DRIVE NUMBER 



1 
-1 
-1 

ENDPROT 

i INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (OFFSET 

} REFERS TO THE NUMBER Of BYTES FROM THE BEGINNING OF A PTABLE 

I ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 

i ITEM DOES NOT APPLY, LEAVE ENTRY AS - 1 . WHEN THE RUNTIME 

j SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS (IF NOT 

; SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

IN THE XXDP* MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 

: LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 

j THE GPHARD. 
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SEQ 127 



5569 
5570 
5571 
5572 
5573 
5574 

5575 
5577 

5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
56 1 7 
5618 
5619 



5620 
5621 
5622 
5625 



.SBTTL 



INITIALIZE SECTION 



102126 
102126 



I THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
5 AT THE BEGINNING OF EACH PASS. 

BGNINIT 

LIINITi j 

! 

{ THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE 
t ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 

DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
PLACE. THE EVENT FLAGS ARE READ USING THE "READEF" MACRO. 
THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
CORRRESPONDING EVENT FLAGS ARE 

START COMMAND 

RESTART COMMAND 

CONTINUE COMMAND 

POWERDOWN/POWERUT 

NEW PASS 
EXAMPLE OF EVENT FLAG USE : 

READEF 4EF. START 

BCOhPLETE STARTCODE 
DURING THE INIT CODE, USE THE "GPHARD" MACRO TO OBTAIN P- TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC, GET INFORMATION ON ALL 
UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERCISER. THE NUMBER 
I OF UNITS AVAILABLE IS IN A HEADER LOCATION: "L$UNIT". 

ROUTINE SI Eh S 



EF. START 
EF. RESTART 

EF. CONTINUE 

EF.PWR 

EF.NEW 



; 



CHECK EN1RY FLAGS AND TAKE CORRECT ACTION 

INIT THE STACKS 

LOCATE FREE MEMORY 

VERIFY THAT A CLOCK OF SOME SORT EXISTS 

GET THE QNA ADDRESS FROM THE PTABLE 

SET up THE QNA INTERRUPT VECTOR 

CLEAR NODE TABLE 

CLEAR SUMMARY TABLE 

CLEAR COUNTER DATA BASE 

SET UP FOR CLOCK INTERRUPTS 

CALL THE QNA INIT ROUTINE 

GET THE DEFAULT PHYSICAL ADDRESS AND PRINT 

RESET THE CLOCK 

EXIT 



IT 



102126 
102126 
102126 
102130 
102132 
102134 
102142 
102144 

102150 



INXT: 



010446 
010346 
010246 
022737 
001004 
005037 
000137 



000020 QQ3V34 

003 734 
103344 



PUSH R2,R3,R4 



CMP *CtXIT,CF'LAG 

BNE INIT1 

CLR CM. AG 

JMP INICLN 



IAVE 



;SLE IT 
{ IF NO, DO INTT CODE 
l ELSfc, CLEAR EXIT FLAG 
I AND DO CLEANUP 



HE REGISTERS 






MCV 


R4, 


-C5P) 


MOV 


R3, 


• ( f.P 'j 


MOV 


W. 


-C5P) 


EXIT COMMAND 


TYPED 





CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
INITIALIZE SECTION 



LIO 



22-MAR-84 13:12 PAGE 44-1 



SEQ 126 



5624 102154 

5625 102154 
102154 
102160 

5626 102162 
102162 

5627 102164 
102164 
102170 

5628 102172 
1021/2 

5629 102174 

5630 102200 

5631 102200 
102200 
102204 

5632 102206 
102206 

5633 102210 

5634 102214 

5635 102214 
102214 
102220 

5636 102222 
102222 

5637 102224 

5638 102230 

5639 102230 

5640 102234 

5641 102234 
102234 
102240 

5642 102242 
102242 
102244 

5643 102250 
5614 102256 

5645 102264 

5646 102270 
102270 
102274 
102276 

564/ 102300 

102300 

5640 102302 

564Q 102306 

5650 102314 

5651 102316 

5652 102316 
102316 
102322 
102324 

5653 102326 
102326 

5654 102330 

5655 102354 

5656 10£54a 



012700 
104447 

103424 

012700 
104447 

103002 
000137 



012700 
104447 

103002 
000137 



012700 
104447 

103002 
000137 

000137 



012705 
010606 

104431 
010037 
013737 
062737 
012702 

012700 
104462 
010001 

103006 
004737 
012737 
000514 



012700 
104462 
010001 

103017 
004737 
062737 
QI2777 



INIT1; 



000040 

000037 

103234 
000036 

103234 
000035 

103334 
103354 

001000 



050022 

C50022 050024 
000002 050024 
003736 

000114 



070504 

000100 003746 



10$: 



READEF dEF. START 

BCOMPLETE START 
READEF ^EF .RESTART 

BNCOMPLETE 10$ 
JMP RESTRT 
READEF 4EF, CONTINUE 



I IF HERE BECAUSE OF "START", DO INIT 



20$; 



BNCOMPLETE 
JMP RESTRT 
READEF 0EF.NEW 



20$ 



MOV 
TRAP 

BCS 
IF HERE BECAUSE OF "RESTART" 

MOV 
TRAP 

BCC 



{IF HERE BECAUSE OF "CONTINUE" 

MOV 

TRAP 

BCC 



*>EF, START, RO 
C$REFG 

START 
DO SOME INIT 
^EF, RESTART, RO 
C$REFG 

10$ 



EXI1 

OFF. CONTINUE, RO 

C$REFG 

20$ 



{IF HERE ON NEW PASS, SKIP SOME INIT 

MOV OEF.NEW.RO 
TRAP CSREFG 





BNCOMPLETE 30$ 




.JMP 


NEW 


30$; 








JMP 


INIEXI 


START; 








I$STACK 


01000. SP 




MOV 


01000, R5 




MOV 


SP.5P {INIT 




MEMORY 


FRESIZ 




MOV 


FRESIZ, FREMEM 




ADD 


*2,FREMEM 




MOV 


0CLKCSR,R2 




CLOCK 


L,R1 




BNCOMPLETE 10$ 




JSR 


PC.CLKSET 




MOV 


4LCLKEN.CLKEN 




BR 


40$ 



BCC 



30$ 



{IF DON'T KNOW WHY WE'RE HERE, EXIT 

{SET PARAMETER STACK POINTER 
{INITIALIZE THE PARAMETER STACK POINTER. 
{INITIALIZE THE HARDWARE STACK POINTER. 



C$MEM 
RO.FRESIZ 



10$ 



000120 



0/0504 

000002 003736 

001600 1Q1366 



CLOCK P.R1 



BNCOMPLETE 



20$ 



JSR PC.CLKSET 
ADD #2,CLKCSR 
MQV APCLKCTiMCLKCUR 



{GET FREE MEMORY INFO 

TRAP 
MOV 

{SIZE OF FREE MEMORY IN FRESIZ 
; START OF FREE MEMORY IN FREMEM 
{SETUP R2 AS A PRT. TC CLOCK INFO. BLOCK 
{GET LINE CLOCK INFO 

MOV O'L.RC 
TRAP CICLCK 
MOV R0.R1 
{IF NONE, SEE IF P CLOCK PRESENT 

BCC 10$ 
;SET UP CLOCK INFO TABLE AND VECTOR 
;SET UP THE ENABLE LINE CLOCK DATA 



{GET P CLOCK INFO 

MOV O'P.PO 

TRAP CSCLCK 

MOV RO.R.l 

{IF NO CLOCK, ERROR 

BCC 20$ 

{ ELSE SET UP CLOCK INFO AND VECTOR 

j POINT CLKCSR TO P--CLK COUNT SET REU-. 

tLQAD CLK SET REG. WITH COUNT VALUE 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
INITIALIZE SECTION 



20$ 



22-MAR-84 13-12 



M10 
PAGE 44-2 



SEQ 129 



565 7 


102350 


162737 


000002 003736 


5658 


102356 


012737 


000111 003746 


5659 


102364 


000470 




5660 


102366 






5661 


102366 


012737 


OOOIOO 003742 


5662 


102374 


012737 


003746 003736 


5663 


102402 


012737 


000001 003756 


5664 


102410 








102410 


012746 


000000 




102414 


012746 


070530 




102420 


013746 


003742 




102424 


012746 


000003 




102430 


104437 






102432 


062706 


000010 


5665 


102436 








102436 


012727 


000050 




102442 


000000 






102444 


013727 


002116 




102450 


000000 






102452 


005367 


177772 




102456 


001375 






102460 


005367 


177756 




102464 


001367 




5666 


102466 


005737 


003756 


5667 


102472 


001013 




5668 


102474 








102474 


104443 






1024 76 


000406 






102500 


003744 






102502 


000052 






102504 


052242 






102506 


000377 






102510 


000062 






102512 


000074 






102514 






5669 


102514 


004737 


070504 


5670 


102520 


000412 




5671 


102522 






5672 


102522 








102522 


012746 


C61766 




102526 


012746 


000001 




102532 


010600 






102534 


104417 






102536 


062706 


000004 


5673 


102542 


000137 


103344 


5674 


102546 






5675 


102546 








102546 


012700 


000000 




102552 


104442 






102554 


010001 




5676 


102556 








102556 


103402 




5677 


102560 


000137 


103344 


5678 


102564 






56 79 


102564 


012137 


047772 


5680 


1025 70 


012137 


04 7 7 74 


5681 


102574 


012137 


047776 



SUB 02.CLKCSR 

MOV 4PCLKEN.CLKEN 

BR 40$ 

MOV #100 .CLKVEC 

MOV 0CLKEN,CLKCSR 

MOV 01, TIMER 1 
SETVEC CLKVEC , tf CLKINT , GO 



{POINT CLKCSR BACK TO P-CLK CSR 
{SETUP TO ENABLE P-CLK DATA 



DELAY 50 



TST 
BNE 
GMANID 



TIMER1 t 

30$ : 

L5060.CLKHZ, 0,377, 50. ,60, 



SET UP INTERRUPT VECTOR 




FAKE A CSR LOCATION 




SET TIMER 1 VALUE 




ENABLE CLOCK INTERRUPTS 




MOV 


00, -CSP) 


MOV 


#CLKINT,-CSP) 


MOV 


CLKVEC, -CSP) 


MOV 


03.-CSP) 


TRAP 


C$SVEC 


ADD 


010, SP 


WAIT SOME TIME TOR CLOCK INTERRUPTS 


MOV 


,>50,CPC)* 


.WORD 





MOV 


L$DLY,CPO* 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


DID TIMER1 DECREMENT TO ZERC 


t? 


NO, NO CLOCK EXISTS. REPORT 


ERROR 


YES { ASK IF 50 OR 60 HZ 




TRAP 


C$GMAN 


BR 


10000$ 


.WORD 


CLKHZ 


.WORD 


T$CODE 


.WORD 


L5060 


.WORD 


377 


.WORD 


T5L0LIM 


.WORD 


UHILIM 



JSR 
BR 



PC.CLKSET 
40$ 



10000$ 



30$ 



5 CONTINUE 



PRINTF GNOCLK 



40$ 



50$ 



JMP INICLN 

GPHARO 00. Rl 

BCOMPLETE 50$ 

JMf- INICLN 

MOV (R1V.QNAAD0 

MOV (R1)*,QNAVC0 

MOV (Rl)f.QNAPRO 



{ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 
{CANNOT CONTINUE, DO CLEANUP 



JNOCLK, -CSP) 
01. -CSP) 
SP.RO 

C$PNTF 

#4,SP 



;GET P-TAB POINTER FOR THIS UNIT 

MOV 30. RO 
TRAP C$GPHRD 
MOV R0.R1 

{THIS ONE IS NOT AVAILABLE 

BCS 50$ 



jSAVE DEVICE ADDRESS 
{SAVE VECTOR 
{SAVE PRIORITY 
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5682 


102600 










102600 


013746 


047776 






102604 


0i2746 


073064 






102610 


013746 


047774 






102614 


012 7 46 


000003 






102620 


104437 








102622 


062706 


000010 




5683 


102626 


012703 


000050 




5684 


102632 


012702 


002412 




5685 


102636 








5686 


102636 


005022 






5687 


1 )2640 


005303 






5688 


102642 


001375 






5689 


1G2644 


012703 


000132 




5690 


102650 


012702 


002714 




5691 


102654 








5692 


102654 


005022 






5693 


102656 


005303 






5694 


102660 


001375 






5695 


102662 


005037 


050266 




5696 


102666 


005037 


050270 




5697 


102672 


00503 7 


050252 




5698 


102676 


005037 


050032 




5699 


102702 


005037 


050030 




5700 


102706 


005037 


050034 




5701 


102712 


005037 


050036 




5702 


102716 


00503 7 


050040 




5703 


102722 


005037 


050042 




5704 


102726 


012702 


050144 




5705 


102732 


012203 






5 706 


102734 


006203 






5707 


102736 








5708 


102736 


005022 






5709 


102740 


005303 






5710 


102742 


001375 






5711 


102744 


005037 


003750 




5712 


102750 


005037 


003752 




5713 


102754 


013737 


003744 


003754 


5714 


102762 










102762 


013746 


003740 






102766 


012746 


070530 






102772 


013746 


003742 






102776 


012746 


000003 






103002 


104437 








1.03004 


062706 


000010 




5715 


103010 


013777 


003746 


100720 


5716 


103016 










103016 


012700 


000000 






103022 


104441 






5717 


103024 










103024 


00443 7 


070656 






103030 


000220 






5718 


103032 
103032 


014500 






5719 


103034 


0C1401 






5/20 


103036 


000542 






5721 


103040 
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SETVEC QNAVCO , 4QNAISR , QNAPRO 



60$ 



70$: 



80S: 



MOV 0TBLLEN.R3 

MOV 4N0DTBL.R2 

CLR CR2)* 

DEC R3 

BNE 60$ 

MOV £STBLEN,R3 

MOV 4STATBL.R2 

CLR (R2)+ 

DEC R3 

BNE 70$ 

CLR BCOUNT 

CLR errflg 

CLR FATFLG 

CLR S.NREC 

CLR S.REC 

CLR S.LEN 

CLR S.COMP 

CLR S.BYTE 

CLR S.XFER 

MOV 4CNTRS.R2 

MOV (R2)*,R3 

ASR R3 

CLR (R2)* 

DEC R3 

BNE 80$ 

CLR TIMMIN 

CLR TIMSEC 

MOV CLKHZ.TIMTCK 

SETVEC CLKVEC , tfCLKINT , CLKBR 



MOV CLKEN.3CLKCSR 
SETPRI UPRIOO 



CALL 



P$POP 

BEQ 
BR 



QNAINI 



RO 

90$ 
INICLN 



; SETUP QNA INTERRUPT VECTOR 

MOV 
MOV 
MOV 
MOV 
TR.1P 
ADD 

{CLEAR NODE TABLE 



SEQ 130 



QNAPRO,~(SP) 
4QNAISR, -CSP) 
QNAVCO, -CSP) 
03,-CSP) 
C$SVEC 
tflO, SP 



{CLEAR SUMMARY TABLE 



CLEAR UNEXPLAINED ERROR COUNTER 

CLEAR ERROR FLAG 

CLEAR FATAL FLAG ERROR 

CLEAR SUMMARY DATA COUNTERS 



j GET BASE ADDRESS OF COUNTER DATA BASE 

; GET SIZE OF COUNT DATA BASE 

} TURN BYTE COUNT INTO WORD COUNT 

S CLEAR THIS COUNT 

5 KNOCK DOWN COUNT By ONE 

5 BRANCH IF MORE TO DO 

{CLEAR TIME SINCE-START-LOCATIONS 



i LOAD TICKS/SEC 
{SETUP CLOCK INTERRUPT 



{SET ENABLE BITS IN 
jSET PRIORITY-0 SO 



VECTOR 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
THE CLOCK 
CLOCK CAN 
MOV 



CLKBR, -CSP) 
OCLKINT, -CSP) 
CLKVEC, -<Si>) 
#3. CSP) 

C$SVEC 



{INITIALIZE THE QNA 

JSR 
.WORD 

! GET RETURN STATUS 

MOV 

; BRANCH IF NO ERRORS 



TRAP 



410, SP 
TO START 
INTERRUPT 
4PRI00 
C$SPRI 



RO 



R4,PREG14 
QNAINI -ANCHOR 

-CR5),R0 



90$ 
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Zr Sif'TiON 






5722 


105(K"J 


012702 


004010 




5725 


105044 


012705 


005774 




5724 


105050 


012225 






5725 


105052 


012225 






5726 


105054 


011213 






5727 


10' "»56 


012703 


04 7b"« 




5728 


'03v*>2 


U12702 


ooaoi: 




5729 


105o:/j 


011263 


000006 




5750 


103072 


G16263 


000002 


OOC010 


5751 


103100 


0*6265 


000004 


0000 12 


5*32 


105106 


011263 


000042 




5755 


105112 


016263 


000002 


000044 


5754 


105120 


016263 


000004 


000046 


5755 


105126 








5756 


105126 










105126 


012725 


002524 






105152 


012725 


000006 






105156 


012725 


005774 






105142 


004437 


070656 






105146 


005150 






5757 


105150 










105150 


012746 


002324 






105154 


012746 


055046 






105160 


012746 


000002 






105164 


010600 








103166 


104416 








105170 


062706 


0000O6 




5750 


105174 


012737 


000000 


002572 


5759 


105202 


012737 


001000 


002574 


5740 


105210 


012737 


000001 


002576 


5741 


105216 


005057 


005202 




5742 


105222 


005057 


005750 




5745 


105226 


005057 


050146 




5744 


105252 


000450 






5745 


105254 








5746 


105254 


005057 


002200 




5 74 7 


105240 


005037 


005202 




5748 


105244 


015757 


005744 


005754 


5749 


103252 










105252 


015746 


005740 






105256 


012746 


070550 






105262 


015746 


005742 






105266 


012746 


000005 






105272 


104457 








105274 


062706 


000010 




5750 


103500 


015777 


005746 


100430 


5751 


105506 










105506 


012700 


000000 






105512 


104441 






5 752 


103514 










105314 


0044 3 7 


07065b 






105520 


000220 






5755 


105522 
105522 


014500 






5754 


105524 


001401 






5/55 


105326 


000406 






5?56 


103530 
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; UV 


0PHYADR.R2 


MOV 


0DEPADR.R5 


MOV 


(R2)*,(R5)» 


MOV 


CR2)»,CR3)» 


MOV 


CR2),(R3) 


MOV 


0I0TDAT.R5 


MOV 


0PHYADR.R2 


MOV 


(R2),S0URCC(R5) 


MOV 


2CR2)»S0URCC»2(R5) 


MOV 


4(R2).S0URCC*4CR5) 


MOV 


(R2),SIA00R(R5) 


MOV 


2(R2),SIADDR*2(R5) 


MOV 


4(R2),SIADDR*4(R5) 



100$; 



SEQ 151 



GET CSR AODRESS 

GET DEFAULT PHYSICAL ADDRESS 

GET FIRST WORD OF THE ADDRESS 

GET SECOND WORD OF THE ADDRESS 

GET FINAL WORD OF THE ADDRESS 

POINT TO SYSTEM ID MESSAGE 

POINT TO PHYSICAL ADDRESS 

OUR ADDRESS IS CONSOLE ID SOURCE 

AGAIN 

ANO AGAIN 

OUR ADDRESS IS CONSOLE ID DEVICE ADDRESS 

AGAIN 

AND AGAIN 



CALL 



BINHEX ODEPADR.06.0STRBUF j PUT ADDRESS INTO HEX FORMAT 



PRINTS 0HDMSG1 , OSTRBUF 



MOV 


OALPHA.PiTYPE 


MOV 


0512..PISIZE 


MOV 


•l.PICPYS 


CLR 


RSPFLG 


CLR 


TIMMIN 


CLR 


CNTRS*C.S£CS 


BR 


INIEXI 


RESTRT: 




CLR 


BLDFLG 


CLR 


RSPFLG 


MOV 


CLKH/.TIMTCK 


SETVEC 


CLKVEC.OCLKINT.CLKBR 



MOV 
5ETPRI 



CALL 



r-*POP 



Cl *FN,aO KCSR 
OPRIOO 



QNAINI 



'0$} 



BI.Q 

BR 



RO 

101 

INICLN 



MOV 


OSTRBUF 


,CR5)» 


MOV 


06. (R5) 


» 


MOV 


ODEPADR 


,(R5)* 


JSR 


R4,PREG14 


.WORD 


BINMEX- 


ANCHOR 


j PRINT ADDRESS 








MOV 


OSTRBUF. (SP) 




MOV 


•HDMSG1. -(SP) 




MOV 


0?, (SP) 




MOV 


SP.RO 




TRAP 


CJPNTS 




ADO 


06. SP 


jSET MESSAGE DEFAULT 


VALUES 





j CLEAR RESPONOLR MODE FLAG 

I CLEAR TIME SINCE START -LOCATIONS 

j CLEAR ONA TIKE SINCE START 



x INOICATE THAI WE ARE 
l CLEAi? RtSP'J.-WER MODE 
lLOAD TICKS/SEL 
i SETUP CLOCK INTERRUPT 



NO LONGER 

FLAG 



BUILDING 



iSET 



VECTOR 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
FNABl F BITS IN THE CLOCK 
PRIORITY-O SO CLOCK CAN 

MOV 
TRAP 



t INITIALISE THE QNA 

JSR 
.WORD 

j GP T RETURN STATUS 

MOV 

I BRANCH IK NO ERRORS 



CLKBR. ( SP) 
♦CLKINT # (SP) 
CLKVEC, -(SP) 
05, iSP) 
CISVEC 
010. SP 
TO START 
INTERRUPT 

OPRIOO.RO 
CiSPRI 



R4 ( PREG14 

QNAINI -ANCHOR 

-(R5>»R0 



C 1 1 
5KW?ftPi2l Q ^c¥fcA :sERClstR DIAG MACRU Ml200 22 - MAR * B4 13jl? PAGt 4 4 * 5 



5EQ 132 



5757 
5759 

5 760 
5761 
5762 



5763 

5764 

5 765 



5 766 



5767 
5769 
5770 
5771 
57 72 
5775 
5774 
5775 
57/6 
5777 
5779 
5780 
5781 
5782 



103330 
103334 
103334 
.103342 
103344 
103344 
103344 
103346 
103350 
103352 
103352 
103354 
103354 
103354 
1C3356 
103360 
103362 
103362 
103364 



005037 003752 



Cl.R 



TIMSEC 



103366 
103366 
103366 



013777 
000404 



012602 
012603 
012604 

104444 



012602 
012603 
012604 

104432 
000002 



003 7 4b 100374 



NEW; 












MOV 


CLKF.N.HCLKCSR 


jSET ENADLE BITS IN THE 


CLOCK TO START 




BR 


INIEX1 


|EXIT 




INICLNs 












POP 


R2,R3»R4 


» RESTORE THE REGISTERS 

MOV 
MOV 

MOV 


(SP)».R2 

(SP)»,R3 
<SP)*.R4 




DOCLN 




j ABORT PASS 


TRAP CfDCLN 


INIEXIj 












POP 


R2.R3.R4 


1 RESTORE THE REGISTERS 

MOV 

MOV 
MOV 


(SP)*,R2 
(SP)»,R3 
CSP)>,R4 




EXIT 


INIT 


I EXIT INIT SECTION 


TRAP CSEXIT 
.UOPD L10010-. 



t INSERT LOCAL STORAGE THAT IS USED ONLY 

i DURING THE INITIALIZE SECTION. 

t ««*««« tf#«tf«rftf«tftfrf«tf#*tf«tfrftftf«tftf«*tftftf*tftfi^ 

j INSERT MESSAGES THAT ARE USED ONLY 
i DURING THE INITIALIZE SECTION. 

.EVEN 

ENDINIT 



104411 



L 10010: 



TRAP 



C5INIT 



Dll 



StfWflASp^MlBA ex ^CISER DIAG MACRO M1200 
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SEQ 133 



5 784 

5785 

5 786 

578? 
5788 
578^ 
5790 

s?s»i 

5792 
5793 

5794 

5796 
5 79 7 

5 798 
IS 799 

5801 
5802 



.SBTTL AUTODROP SECTION 



THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
THE "ADR" FLAG WAS SET, THE UNITCS) UNDER TEST ARF CHECKED TO 
SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
DROPPED FROM TESTING, 



103370 
103370 



BGNAUTO 



L*AUTO: 



t INSERT CODE HERE TO CHECK DEVICE(S) TO SEE IF THEY RESPOND, 
j ISSUE A "DOOU" FOR THOSE THAT DON'T. 



103370 
103370 
103370 



ENDAUTO 



104461 



L10011 



TRAP 



CSAUTO 



til 
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SEQ 134 



5804 








5805 








5806 








5807 








5808 








5809 








5810 








5811 








5812 








5813 








5814 








5815 








5816 








5817 








5818 








5819 








5820 


103372 
103372 






5821 








5823 








5824 








5825 








5826 








582 7 








5828 








5830 


103372 








103372 


010225 




5831 


103374 






5832 


103374 








103374 


013700 


000000 




103400 


104441 




5833 


103402 


005737 


050256 


5834 


103406 


001417 




5835 


103410 








103410 


004437 


070656 




103414 


003044 




5836 


103416 








103416 


014502 




5837 


103420 


001765 




5838 


103422 


013702 


024226 


5839 


103426 








103426 


012725 


024226 




103432 


012725 


000001 




1034 36 


004437 


070656 




103442 


006450 




5840 


103444 


000753 




5841 


103446 






5842 


103446 


013702 


047772 


5843 


103452 


012737 


000001 003756 


5844 


103460 


012762 


000002 000016 


5845 


103466 


012737 


000001 003756 


5846 


1034 74 






584 7 


103474 


005737 


003756 


5848 


103500 


001375 




5849 


103502 


005062 


000016 


5850 


103506 


005077 


100224 


5851 


103512 







.SBTTL CtEANUP CODING SECTION 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT 15 PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 

ROUTINE STEPS: 

GET CSR ADDRESS 

CLEAN IP ANY RECEIVE BUFFERS HANGING AROUND 

CLEAR INTERRUPT AND RECEIVE ENABLE BITS 

DISABLE CLOCKS 

EXIT 



BGNCLN 



L$CLEAN 



; INSERT YOUR CLEANUP CODING, THIS CODING SHOULD 
I RESTORE YOUR TEST -DEVICE TO A NEUTRAL STATE. 
: THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
PROGRAM IS INTERRUPTED BY "tC". 



10$ 



P$PUSH R2 



SETPRI PRIOO 



} PUT R2 ON THE 



STACK 

MOV 



R2,(R5)> 



TST 
BEQ 
CALL 



NIRCNT 

20$ 

RECEVE 



P$POP R2 



MAKE SURE CLOCKS CAN INTERRUPT 

MOV PRIOO, RO 
TRAP C$SPRI 
SEE IF RECEVE COUNT ZERO 
IF YES. EXIT 

ELSE, CLEAR OUT UNWANTED ENTRIES 
JSR R4.PREG14 
.WORD RECEVE -ANCHOR 



BEQ 


10$ 


i 


MOV 


RRGNXT.R2 


l 


CALL 


GETRNX n.ORRGNXT 


J 



-CR5).R2 

UPDATE NEXT 



POINTER 



BR 



20$ 



30$i 



10$ 



MOV 


QNAAD0.R2 


MOV 


#1, TIMER 1 


MOV 


0MRESET,CSR(R2) 


MOV 


01.TIMER1 


TST 


TIMER1 


BNE 


30$ 


CLR 


CSRCR2) 


CLR 


SCLKCSR 


SETPRI 


0PRIO7 



MOV 
IF ANY WERE FOUND, 
GET THE DESCRIPTOR 
UPDATE NEXT AND PREVIOUS DESCRIPTOR POINTERS 

MOV &RRGNXT,(R5)» 

MOV «1,(R5)» 

JSR R4.PREG14 

.WORD GETRNX -ANCHOR 
{SEE IF ANY MORE ENTRIES 

GET DEVICE ADDRESS 
TIMER FOR INITITIALIZE 
RESET THE DEVICE 
TIMER FOR INITITIALIZE 

INIT DONE? 

BRANCH IF NOT 

FINISH THE RESET 

DISABLE CLOCK 

SET PROCESSOR PRIORITY BACK TO 7 



F 1. 1 
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SEQ 135 



5852 
5853 



5854 
5856 
5857 
5858 
5859 
5860 
5861 
5862 
5863 
5864 
5866 
586 7 
5868 
5869 



103512 012700 000340 

103516 104441 

103520 

103520 014502 

103522 

103522 104432 

103524 000002 



103526 
103526 
103526 104412 



P*POP 
EXIT 



R2 

CLN 



I REMOVE 



R2 FROM STACK 
MOV 



MOV 
TRAP 

-(R5),R2 

TRAP 
.WORD 



#PRI07,RO 
C*SPRI 



C*EXIT 
L10012- 



INSERT LOCAL STORAGE THAT IS USED ONLY 
DURING THE CLEANUP SECTION. 

i INSERT MESSAGES THAT ARE USED ONLY 
DURING THE CLEANUP SECTION. 

.EVEN 

ENDCLN 



L10012: 



TRAP 



C SCLEAN 



Gil 
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SEQ 136 



5871 
5872 
58 73 

5874 
5875 
5876 

5877 

5878 

5879 
5881 
5882 
5883 
5884 
5885 
5886 
5888 
5889 



5890 
5892 
5893 
5894 
5695 
5896 
5897 
5898 
5899 
5900 
5902 
5903 
5904 
5905 



103530 
103530 



103530 

103530 000167 

103532 000000 



103534 
103534 
103534 



.SBTTL DROP UNIT SECTION 



THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED, 



BGNDU 



L$DU 



j INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 

j A "DROP" COMMAND OR A "DODU" MACRO EXECUTION. THE PURPOSE 

i OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 

; UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 



EXIT 



UU 



.WORD 
.WORD 



J$JMP 
L1O013-2 



{ INSERT LOCAL STORAGE THAT IS USED ONLY 

} DURING THE DROP-UNIT SECTION. 

j INSERT MESSAGES THAT ARE USED ONLY 

j DURING THE DROP-UNIT SECTION. 

.EVEN 

ENDDU 



104453 



L10013: 



TRAP 



C$DU 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
ADD UNIT SECTION 



22-MAR-84 13:12 



H 1 1 

PAGE 48 



SEQ 137 



5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 

5916 
5918 
5919 
5920 
5V1 
^ a ' J 2 

5'^ 

5925 
5926 



5929 
5930 
5951 
59:52 
5933 
5934 
5935 
5936 
5937 
5939 
5940 
5941 
5942 



.SBTTL ADD UNIT SECTION 



f ♦ 



THE ADD UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 
; - - 



103536 
103536 



BGNAU 



I JAU 



; INSERT ADD COOE HERE. THIS CODE WILL BE EXECUTED AFTER 

; AN "ADD" COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 

; HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 

j THIS SECTION IS OPTIONAL. 



J 03536 

103536 000167 

103540 000000 



EXIT 



AU 



. WORD 
. WORD 



J5JMP 

L10014-2 



; INSERT LOCAL STORAGE THAT IS USED ONLY 
? DURING THE ADD-UNIT SECTION. 

INSERT MESSAGES THAT ARE USED ONLY 
i DURING THF. ADD-UNIT SECTION. 



103542 
103542 
103542 



.EVEN 
ENDAU 



104452 



L10014- 



TRAP 



C$AU 



Ill 
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TEST 1: 

5944 .SBTTL TEST 1: 

5945 

5947 ;***********************************************************^ 

5948 5 APPEND THE NAME OF THIS TEST TO THE . SBTTL, AS SHOWN IN THE 

5949 j FOLLOWING EXAMPLE. .SBTTL TEST 1: NAME OF TEST 

5950 ;**********************************************************^^ 
595? 

5953 

5954 ;♦♦ 

5955 j TEST TO . . , 

5956 i - - 
5957 

5959 ;****************************************r?********^^ 

5960 ; CHANGE THE PHRASE "TEST TO ..." TO BE A FUNCTIONAL 

5961 ; DESCRIPTION OF THE HARDWARE TEST WHICH FOLLOWS. 
596c ;*********************************************^^ 
5964 

5966 j^>*\\***************************************^^ 

5967 j "NSERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 

5968 ;*******i*******************************************^^ 
5970 

5971 103544 BGNTST 

103544 Tit i 

5972 

5974 { ********************************************************************************* 

5975 ; INSERT THE CODING FOR THIS HARDWARE TEST. 

5976 j ********************************************************************************* 



Jll 
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SEQ 139 



5979 

5980 

5981 

5962 

5983 

5984 

5985 

5986 

598" 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 



6025 
6026 



103544 
103544 
103550 
103554 
103554 
103556 
103560 
103562 
103564 
103566 
103570 
103572 
103574 
103574 
103602 



.SBTTL 



GETCL COMMAND LINE FETCH £ INTERPRETATION SECTION 



l ♦♦ 



FUNCTIONAL DESCRIPTION: 



J 



THIS PART OF TEST 1 IS USED TO PROMPT THE USER FOR A COMMAND 
CALLING SEQUENCE 

ENTERED VIA DSRS TEST DISPATCH ROUTINE 
INPUT 

NONE 
IMPLICIT INPUT 

NONE 
? OUTPUT 

A COMMAND FROM THE USER 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

NONE 



DEBUG 



105037 003221 
105037 003220 

104443 
000406 
002202 

000142 
052104 
000000 
000001 
000110 

012 737 002202 
012737 050516 



GETCL 



NONE 



CLRB 
CLRB 
GMANID 



P»GDBD 

PSNNUf" 
CLI$PM,CMDBU! r ,A l O l l,72. »N0 



{CLEAR CMD LINE PARSING ERROR FLAG 



{GET CMD LINE FROM OPERATOR 



003204 
003206 



MOV 
MQV 



*CMDBUF,P$BUFA 
4CITTRE,P*TRE£ 





TRAP 


CSGMAN 




BR 


10000$ 




.WORD 


CMDBUF 




.WORD 


T SCOOP 




.WORD 


CLISPM 




.WORD 







.WORD 


TSLOLIM 




.WORD 


TSHHIM 


10000$; 







Kll 
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SEQ 140 



6027 


103610 


012737 


103726 003210 


MOV 


0CLIACT,P$AC 


6028 


103616 


005037 


003734 


CLR 


CFLAG 


6029 


103622 


004737 


100544 


JSR 


PC.PURV 


6030 


103626 


105737 


003221 


TSTB 


P$GDBD 


6031 


103632 


001412 




BEQ 


10$ 


6032 


103634 






PRINTF 


0CLIERM 




103634 


012746 


052113 








103640 


012746 


0OO001 








103644 


010600 










103646 


104417 










103650 


062706 


000004 






6033 


103654 


000137 


103544 


JMP 


GETCL 


6034 


103660 


105737 


003220 


10$: TSTB 


P$NNUF 


6035 


103664 


001412 




BEQ 20$ 




6036 


103666 






PRINTF 


0CLINUF 




103666 


012746 


052144 








103672 


012746 


000001 








103676 


010600 










103700 


104417 










103702 


062706 


000004 






6037 


103706 


000137 


103544 


JMP 


GETCL 


6038 


103712 


022737 


000020 003734 


20$: CMP 


*CEXIT, CFLAG 


6039 


103720 


001311 




BNE 


GETCL 


6040 


103722 
103722 
103724 


104432 
013164 




EXIT 


TST 



5 CLEAR QUALIFIER FLAG 

;G0 PARSE COMMAND TREE 

jSEE IF PARSED OK, OR AN ERROR 



j IF NOT 


PRINT ERROR MESSAGE 






MOV 


OCLIERM.-CSP) 




MOV 


VH.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


#4,SP 


iSEt IF 


INCOMPLETE COMMAND TYPED 


j IF NOT 


PRINT ERROR MESSAGE 






MOV 


OCLINUF.-CSP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C*PNTF 




ADD 


G4.SP 



;WAS EXIT COMMAND TYPCD? 

5 IF NOT GET NEW COMMAND LINE 

I ELSE EXIT 

TRAP C$EXIT 
.WORD L10015-. 
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6042 

6043 

6044 

6045 

6046 

6047 

6043 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

60/7 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6069 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

609 7 

6098 



103726 
103726 
103730 
103734 
103740 
103742 



103744 
103746 
103750 
103752 



006302 
016202 
062 702 
004712 
000207 



000124 
000126 
000164 
0004 74 



103744 
103744 



22-MAR-84 13:12 
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CLI ACTION TABLE AND ROUTINES 



SEQ 141 



♦ ♦ 



i FUNCTIONAL DESCRIPTION: 

i THESE ARE THE ACTION TABLES TO DEFING WHAT TO DO WITH A COMMAND 

j RECEIVED FROM A USER 

; USER MUST CLEAR/SET PSGDBD IF USE "CLIBIF" IN CONNECTION WITH ACTION 

! 

{ CALLING SEQUENCE 



JMP 



CL 



j INPUT 



{ 



COMMAND FROM THE USER 
IMPLICIT INPUT 

NONE 
OUTPUT 

NONE 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 



R2 - HOLDS ACTION CODE FROM THE PARSING (CLI) NODE 



DEBUG 



NONE 



CLI ACT: 








ASL 


R2 




MOV 


10UR2),R2 




ADD 


*1C*,R2 




JSR 


PC.CR2) 




RTS 


PC 


10$: 


.UORD 


ACTNUL-10$ 




.WORO 


ACTHLP-10$ 




.wonD 


ACTNOO-10$ 




.WORD 


ACTBLD-10$ 



jMULTIPLY ACTION CODE BY 2 
lOFFSET VALUE 
i ADD BASE VALUE 
; GO DO ACTION 
jRETURN TO TRVACT 

{BRIEF DESCRIPTION OF ACTION TAKEN 
j C -NULL 
j 1 -HELP 

I 2 -NODE 
I 3 -BUILD 
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SEQ 142 



6099 


103754 


003520 


6100 


103756 


006366 


6101 


103760 


010172 


6102 


103762 


001224 


6103 


103764 


001606 


6104 


103766 


002632 


6105 


103770 


000116 


6106 


103772 


002642 


6107 


103774 


002724 


6108 


103776 


007732 


6109 


104000 


002732 


6110 


104002 


002742 


6111 


104004 


002752 


6112 


104006 


002762 


6113 


104010 


002772 


6114 


104012 


003002 


6115 


104014 


003012 


6116 


104016 


003140 


6117 


104020 


003146 


6118 


104022 


003224 


6119 


1O4024 


003302 


6120 


104026 


003440 


6121 


104030 


003646 


6122 


104032 


004724 


6123 


104034 


006450 


6124 


104036 


006542 


6125 


104040 


006646 


6126 


104042 


010106 


6127 


104044 


000124 


6128 


104046 


010236 


6129 


104050 


010340 


6130 


104052 


004272 


6131 


104054 


010414 


6132 


104056 


010462 


6133 


104060 


010744 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ACTRUN-10* 
ACTPAT-10* 
ACTSAV-10* 
ACTSUM 10* 
ACTIDT-10* 
ACTEXT-10* 
ACTNUF-10* 
ACTXAD-10* 
ACTSR4-10* 
ACTSND-10* 
ACTALP-10* 
ACTONE-10* 
ACTZRO-10* 
ACT1AL-10* 
ACTOAL-10* 
ACTCTT-10* 
ACT0PR-10$ 
ACTTYP-10* 
ACTSZE-10* 
ACTCPY-10* 
ACTNAD-10* 
ACTNAL-10* 
ACTRNA-10$ 
ACTRNL-10* 
ACTSMS-10* 
ACTCMS-10$ 
ACTCNT-10* 
ACTCNL-10* 
ACTNUL-10* 
ACTUNS-10* 
AC7CSU-10* 
ACTDIR-10* 
ACTDFT-10* 
ACTUSF-10* 
ACTRSP-10$ 



4-RUN SPECIFIED TEST 
5-SET 'MESSAGE PATTERN' TEST FLAG 
6 -SAVE NODE TABLE 
7 -PRINT SUMMARY TABLE 
10-REQUEST ID 
11-EXIT 

12-NOT ENOUGH INFO 

13-EXTRACT NI NODE ADDRESS FROM INPUT LINE 
14-SAVE POINTER TO BEGINING OF ADDRESS STRING 
15 -SET 'NODE' FLAG FOR SHOW COMMAND 
16-SET 'ALPHA' FLAG 
17-SET 'ONES' FLAG 
20-SET 'ZEROS' FLAG 
21 -SET ' 1ALT' FLAG 
22-SET 'OALT' FLAG 
23-SET 'CCITT' FLAG 
24-SET 'OPER SEL' FLAG 
25-DETERMINE MESSAGE TYPE 
26 -DETERMINE MESSAGE SIZE 
27-DETERMINE MESSAGE COPIES 
30-SET 'NODE/ADDRESS' FLAG 
31 -SET 'NODE/ALL' FLAG 
32-SET 'ALL' FLAG FOR RUN COMMAND 
33 -SET 'LOOPPAIR' FLAG FOR RUN CMD 
34 -SHOW CURRENT MESSAGE PARAMETERS 
35-RESET MESSAGE PARAMETERS TO DEFAULT 
36-SET 'COUNTER' FLAG FOR SHOW COMMAND 
37 -CLEAR LOGICAL NODE NAMED FROM TABLE 
40 - DO NOTHING 
41-UNSAVE NODE TABLE 
42 -CLEAR SUMMARY TABLE 

43 -SET 'LOOP DIRECT' FLAG FOR RUN COMMAND 
44 -LOOK FOR PASS COUNT DEFAULT 
45-UNSAVE NODE TABLE FROM A FILE 
{46 - RESPQNDER MODE 
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SEQ 143 



6135 
6136 

6i:? 

6138 

6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 

6157 

6158 



6159 
6160 
6161 

6162 

6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 



6175 

6176 

6177 



i 04062 
104062 



104070 
104070 



104072 
104072 
104072 
104074 
104100 
104100 
10410? 
104106 
104110 
104112 
104116 
104122 
104124 
104124 
104126 



104130 
104130 
104134 
104140 
104144 
104U6 
104146 
104152 
104156 
104162 
104166 
104170 
104170 
104172 
104174 
104174 



000207 



010225 
012702 

012246 
012746 
010600 
104417 
062706 
020227 
001366 

014502 
000207 



? 



ACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
INFORMATION HAS BEEN ENTERED 



112737 177777 003220 



ACTNUF; 



MOVB tf-l.P$NNUF 



;SET FLAG TO SAY NEED MORE OF COMMAND 



ACTION ROUTINE TO DO NOTHING 



ACTNUL { 



RTS 



PC 



{RETURN TO PARSER 



ACTION ROUTINE TO PRINT OUT HELP FILE 



^03224 
000001 



000004 
003322 



ACTHLP: 



10$: 



P$PUSH 

MOV 
PRINTF 



R2 

4HLPTAB.R2 
CR2)* 



j SAVE R2 

MOV R2.CR5)* 
{MOVE POINTER TO BEGINING OF HELP FILE 
{PRINT LINE AND INCREMENT POINTER 



CMP 


R2,tfHLPEND 


BNE 


10$ 


P$POP 


R2 





MOV 


(R2)+.-(SP) 




MOV 


♦l.-CSP) 




MOV 


SP,RO 




TRAP 


C$PNTF 




ADD 


#4,SP 


{SEE IF ENTIRE 


FILE PRINTED 




{IF NOT, PRINT 


MORE 




{ELSE, RESTORE 


R2 AND RETURN 





RTS 



PC 



MOV -CR5),R2 



ACTION ROUTINE TO READ IN NODE PHY. ADDRESS, STORE IT IN ADRBUF 
AND ENTER IT INTO THE NODE TABLE 



105037 
004737 
105737 
001134 

012725 
012725 
013725 
004437 
004600 

014501 
001411 



0X2 746 052746 



003220 
101656 
003221 



000006 
002316 
002370 
070656 



ACTNOD; 








CLRB 


P$NNUF j 




JSR 


PC.TRVADR { 




TSTB 


PSGDBD ; 




BNE 


60$ { 


10$: 


CALL 


EDPACK CBOADR , tfADRBUF , 06 



CLEAR NOTNUF FLAG 

TRAVERSE ADDRESS, CHECK IF TARGET OR ASSIST 
CHECK IF RESULTS OK 
IF NOT, RETURN WITH -1 IN P$GDBD 
{GET ADDRESS INTO SUFFER 



PSPOP 

BLQ 
PRINTF 



Rl 

20$ 
tfCADRER 



tfADf<iKJF,(R5)» 

CBOADR ,(R5) •• 
R4,PREG14 
EDPACK -ANCHOR 



MOV 

MOV 

MOV 

JSR 

.WORD 
{CHECK RESULTS FOR NUMBER OK CK.'i.S 

MOV -(RS).Rl 
5 l> uK, BRANCH TU 20$ 
{ELSE PRINT ERROR MESSAGE 

MOV 0CADRER, 



kSP) 



B 1 
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SEQ 144 


CLI ACTION TABLE AND ROUTINES 
















104200 


012746 


000001 










MOV 


01, (SP) 




104204 


010600 












MOV 


9P,R0 




104206 


104417 












TRAP 


C$PNTF 




104210 


062706 


000004 










ADD 


04, SP 


6178 


104214 


000510 








BR 


60$ jAND RETURN 






6179 


104216 








20*5 


CALL 


CMPADR OADRBUf ,0ILLADR iSEE IF ILLEGAL 


ADDRESS 






104216 


012725 


002656 








MOV 


OILLADR 


,(R5)> 




104222 


012725 


002316 








MOV 


OADRBU" 


.CR5). 




104226 


004437 


070656 








JSR 


R4,PREG14 




104252 


026004 










.WORD 


CMPADR -. 


ANCHOR 


6180 


104234 










P$POP 


Rl 








104234 


014501 










MOV 


(R5),R1 


6181 


104236 


001021 








RNE 


30$ i IF' YES, PRINT ERROR MESSAGE 




6182 


104240 










PRINTF 


OILADMS 








104240 


012746 


052565 










MOV 


OIIAOMS, -(SP) 




104244 


012746 


000001 










MOV 


ol, (SP) 




104250 


010600 












MOV 


SP.RO 




104252 


104417 












TRAP 


C$PNTF 




104254 


06^706 


000004 










ADD 


04, SP 


6183 


104260 










PRINTF 


OIL ADM 1 








104260 


012746 


052651 










MOV 


0ILADM1, -(SP) 




104264 


012746 


000001 










MOV 


01, CSP) 




104270 


010600 












MOV 


5P.R0 




104272 


104417 












FRAP 


C$PNTF 




104274 


062706 


000004 










ADD 


04, SP 


6184 


104300 


000456 








BR 


60$ 






6185 


104 302 








30$s 


CALL 


BINHEX OADRBUF,06,OSTRBUF jCONVERT BINARY 


ADORE SS 






104302 


012725 


002324 








MOV 


OSTRBUF 


.(R5)» 




104306 


012725 


000006 








MOV 


06 , ( R5 ) 


♦ 




104312 


012725 


002316 








MOV 


OAORBUF 


.CRsn 




104316 


004437 


070656 








JSR 


R4.PREG14 




104322 


005150 










.UORD 


BINHEX- 


ANCHOR 


6186 














lINTO ASCII STRING 




6187 


104324 


022737 


000001 


003734 




CMP 


OCASIST.CFl.AG jSEE IF TARGET OR ASSTST 




6188 


104332 


001407 








bEQ 


40$ 






6189 


104334 


012737 


061757 


002314 




MOV 


OARGTt 7.KE.YWD2 (MOVE 'TARGET' INT0KEYW02 




6190 


104 342 


012737 


000000 


002406 




MOV 


OCTARGT.NOOTr jMOVE TARGET INTO NODE 


TYPE. 




6191 


104 350 


000406 








BR 


50$ 






6192 


104352 


012737 


061747 


002314 


40$: 


MOV 


0ARGTi6,KEtWD2 jMOVE 'ASSIST' INT0KEYW02 




6193 


104 360 


012737 


000001 


002406 




MOV 


©CASIST.NQDTY 






6194 


104366 








50$; 


CALL 


ENTRND iCAIL ROUTINE TO ENTER 


NOOE ON 


TABLE 




104366 


004437 


070656 








JSR 


R4.PREG14 




104372 


025410 










.WORD 


ENTRNO- 


ANCHOR 


6195 


1043*M 










P$POP 


Rl iCHECK RF.SU TS 








104374 


014501 










MOV 


(R5).Rl 


6196 


104376 


001017 








BNE 


60$ |IF NODE TABLE FU.L, RE TLWN 




6197 


104400 


012737 


061654 


002312 




MOV 


OCMDTW.KEtWOI iELSE, MOVE "NODE ' INTO 


1 KEYUOl 




6198 


104406 










PRINTS 


0MSG2.KEYWD2.0STRQUK j INDICATt IF TARGET OR 


ASSIST 






3.04406 


012746 


002324 










MOV 


OSTRBL* , v -P> 




104412 


013746 


002314 










MOV 


KEiW02, U»P) 




104416 


012746 


054 703 










MOV 


oMSGv'. y.SP) 




104422 


012746 


000003 










MOV 


03. ^ SP) 




104426 


010600 












MOV 


SP.RO 




104430 


104416 












TRAP 


C$*'N T ■» 




104432 


062 7 0€ 


000010 










ADD 


010, SP 


6199 


104436 


000207 






60$: 


RT5 


PC 






6200 
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SEQ 145 



6201 
6202 
6203 
6204 
6205 
6206 
6207 



6208 



6209 



6210 



6211 



6212 

6213 
6214 



6215 
6216 
6217 
6216 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 

6228 

6229 
6230 



104440 

104440 

104440 

104444 

104450 

104452 

104454 

104460 

104460 

104464 

104470 

104472 

104474 

104500 

104500 

104504 

104510 

104512 

104514 

104520 

104520 

104522 

104524 

104526 

104526 

104532 

104536 

104540 

104540 

104542 

104544 

104544 

104546 

104550 

104552 

104554 

104560 

104560 

104564 

104570 

104574 

104600 

104606 

104614 

104620 

104620 

104624 

104624 

104624 

104626 

104630 

104032 



012746 
012746 
010600 
104416 
062706 

012746 
012746 
010600 
104416 
062706 

012746 

012746 
010600 
104416 
062706 

010425 
010325 
010225 

012725 
004437 
001232 

014502 
001406 

104456 
00OO31 
064157 
000000 
000137 

005237 
005037 
005037 
005037 
012737 
012737 
012704 



054415 
000001 



000004 

054530 
000001 



000004 

05464 3 
000001 



000004 



000001 
070656 



105154 

002200 
050314 
050316 
050320 
000013 
002412 
003762 



012714 000074 



104422 
005714 
001503 



J 

jACTION ROUTINE: TO BUILD NODE TABLE USING THE PERIODIC ADDRESS 

i IDENTIFICATION MESSAGES SENT OUT BY NODE ON THE NI 

J 



ACT8LD: 



PRINTS 0MSG1 



PRINTS OMSGlt 



PRINTS 0MSG12 



10$ j 



050322 
002410 



20*: 
30* j 



P*PUSH R2,R3,R4 



CALL SETUP OADDMUL 



PIPOP R2 

8EQ 10$ 

ERRHRD 25.EM5G25 



JMP 100$ 

INC BLOFLG 

CLR TEMP 

CLtt TEMPI 

CLR TEMP2 

MOV 013, TEMPS 

MOV ONODTBL.SLOT 

MOV 0TIMERS.R4 

MOV 060 . , C R4 ) 

BREAK 

TST (R4) 

BtQ 70% 

CALL RECEVE 



I PRINT 'BUILD' COMMAND 



I SAVE REGISTERS 



MOV 
MOV 

MOV 



» WRITE MULTICAS T ADDRESS 



MESSAGE 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 

R4.CR5)* 

R3.CR5)* 
R2.CR5)* 



0MSG1.-CSP) 

01, CSP) 
SP,RO 
CfPNTS 
04, SP 

0MSG11, CSP) 

01. -(SP) 
SP.RO 
CJPNTS 
04, SP 

0MSG12, -CSP) 
01, CSP) 

SP,RO 
C1PNTS 
04, SP 



MOV 
JSR 
.UORD 
: CHCCK FOR ERROR 

MOV 
I IF OK, CONTINUE 
» ELSE REPORT ERROR 



OADDMUL, (R5)» 
R4.PREG14 
SETUP -ANCHOR 



(R5).R2 



t LEAVE 



TRAP 
.WORD 
.WORD 
.WORD 



CJERHRD 
25 

EMSG25 




ARF IN BUILD 

IN LAST MIN. 
(SET 



MODE 

COUNTER 
TO TARGET 



j INDICATE THAT WE 

I CLEAR "NO. NODES 

I CLEAR NODE TYPE ARGUMENT 

» SET INTERVAL COUNTER 

I SET 'MINS, SINCE LAST NEW NODE' COUNTER 

i SET SLOT TO BEGINING OF NODE TABLE 

l SET UP FOR 1 MINUTE LOOP 



i ALLOW ^'OR CONTROL C INTERRUPTION 

TRAP CSRRK 

j SEE IF INTERVAL IS UP 
j V tES, BRANCH 
1 ELSE. CHECK FOR RECEPTION OF ID MESSAGE 
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SEQ 146 





104632 


000-437 


070656 




104636 


003044 




6231 


104640 








104640 


014502 




6232 


104642 


001770 




6233 


104644 


013703 


024226 


6234 


104650 








104650 


012725 


024226 




104654 


012725 


000001 




104660 


004437 


070656 




104664 


006450 




6235 


104666 


016303 


000004 


6236 


104672 


062703 


000006 


6237 


104676 


012702 


002412 


6238 


104 702 






6239 


104702 








104 702 


010325 






104 704 


010225 






104706 


004437 


70656 




104712 


026004 




6240 


104714 








104714 


014501 




6241 


104716 


001742 




6242 


104720 






6243 


104720 


062702 


000010 


6244 


104724 


022712 


177777 


6245 


104730 


001364 




6246 


104732 








104732 


004437 


070656 




104736 


025466 




6247 


104 740 








104740 


014502 




6248 


104742 


001023 




6249 


104 744 


013702 


002410 


6250 


104 750 


012322 




6251 


104752 


012322 




6252 


104754 


011312 




6253 


104 756 


113762 


050316 000003 


6254 


104 764 


105137 


050316 


6255 


104770 


142737 


000376 050316 


6256 


104776 


005237 


050314 


6257 


105002 


012737 


000013 050322 


6258 


105010 


000705 




6259 


105012 






6260 


105012 








105012 


012746 


053415 




105016 


012746 


053274 




105022 


012746 


000002 




105026 


010600 






105030 


104414 






105032 


062 706 


000006 


6261 


105036 


0004 30 




6262 


105040 






6263 


105040 


005337 


050322 


6264 


105044 


001425 




6265 


105046 


005237 


050 320 


6266 


105052 


023727 


050320 000050 



P5P0P R2 



R4.PREG14 
RECevE -ANCHOR 



40$: 



50$ 



60$ 



705 s 



JSR 
.WORD 

R2 HOLDS NO OK MESSAGES RECEIVED 
MOV -CR5),R2 



BF.Q 


30 5 


l 


IF NONE, KEEP LOOKING 


MOV 


RRGNXr,R3 


I 


IF ONE, GET RECEIVE RING POINTER 


CALL 


GETRNX Ol.ORRGNXT 


J 


UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTOI 
MOV 0RRGNXT.CR5)* 
MOV *l.(R5)» 
JSR R4,PREG14 
.WORD GETRNX -ANCHOR 


MOV 


L0ADD(R3),R3 


J 


POINT R3 TO MESSAGE BUFFER 


ADD 


0S0URCC.R3 


J 


POINT R3 TO NODE ADDRESS 


MOV 


ON0DTBL.R2 


1 


POINT R2 TO NODE TABLE 


CALL 


CMPADR R2.R3 


J 


SEE IF NODE ALREADY ON TABLE 

MOV R3.CR5)* 

MOV R2,(R5)» 
JSR R4,PREG14 
.WORD CMPADR -ANCHOR 


P5P0P 


Rl 


i 


GET RESULTS OF COMPARE 

MOV -CR5),Rl 


BEQ 


305 


l 


DON' T ADD TO TABLE IF ALREADY THERE 


ADD 


010, R2 


t 


ELSE CHECK NEXT TABLE ENTRY 


CMP 


0-1, (R2) 


i 


SEE IF AT END OF TABLE 


BNE 


405 


• 


IF NO. COMPARE NEXT ENTRY 


CALL 


FINDSL 


1 


IF YES, GET NEXT TABLE SLOT 

JSR R4,PREG14 
.WORD FINOSL -ANCHOR 


P5P0P 


R2 


1 


SEE IF TABLE FULL 

MOV -(R5),R2 


BNE 


€05 


; 


IF YES, BRANCH 


MOV 


SL0T,R2 


• 


IF NO, ADD NODE TO TABLE 


MOV 


(R3)*,(R2)* 


} 




MOV 


CR3)»,CR2)» 


i 


SIX BYTES WORTH 


MOV 


(R3),CR2) 


J 




MOVB 


TEMPI, 3CR2) 


i 


SET NOOE TYPE (TARGET OR ASSIST) 


COMB 


TEMPI 


i 


SWITCH TYPE FOR NEXT TIME 


BICB 


0376, TEMPI 


i 




INC 


TEMP 


i 


INCREMENT 'NODES IN LAST MIN.' COUNTER 


MOV 


013.TEMP3 


t 


RESET 'MINS. SINCE LAST NODE* COUNTER 


BR 


305 






PRINTS 


OTABFUL.tfNOD 


» 


PRINT "TABLE FULL" MESSAGE 

MOV ONOD . - ( SP "> 
MOV OTABFUL, -CSP) 
MOV 02 , - ( SP ) 
MOV SP.HO 
TRAP C5PNTB 
ADD Of.SP 


BR 


80$ 






DEC 


TEMP3 


i 


SEE IF 10 MINS SINCE LAST NODE 


BEQ 


80$ 


i 


IF YES, EXIT 


INC 


TEMP 2 


1 


SEE IF TIME IS UP 



E12 



CVNIAAO . DEQNA.NI EXeRCISER 



CLI AC VI ON TABLE ANE 



UTIN 
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t.267 


105060 


001417 




6268 


105062 








105062 


013746 


050320 




105066 


013746 


050314 




105072 


012746 


0524 73 




105076 


012746 


000003 




105102 


010600 






105104 


104416 






105106 


062706 


000010 


6269 


105112 


005037 


050314 


6270 


105116 


000640 




6271 


105120 






6272 


105120 








105120 


012725 


000002 




105124 


004437 


070656 




105130 


001232 




6273 


105132 








105132 


014502 




6274 


105134 


001405 




6275 


105136 








105136 


104456 






105140 


000042 






105142 


06415 7 






105144 


000000 




6276 


105146 


000402 




6277 


105150 






6276 


105150 


004737 


113676 


6279 


105154 






6280 


105154 


005037 


002200 


6281 


105160 








105160 


014502 






105162 


014503 






105164 


014504 




6282 


105166 


000207 




6283 








6284 








6285 








6286 


105170 


105037 


003220 


6287 


105174 








105174 


010425 






10517? 


010325 






105200 


010225 




6288 


1052C2 


012701 


002714 


6289 


105206 


0057H 




6290 


105210 


001013 




6291 


105212 








105212 


012746 


053422 




105216 


012746 


053346 




105222 


012746 


000002 




105226 


010600 






105230 


104417 






105232 


062 706 


OOOC06 


6292 


105236 


000541 




6293 


105240 


021127 


177777 


6294 


105244 


001536 




6295 


105246 


005711 




6296 


105250 


001534 
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1 IF YES, EXIT 




SEQ 14 7 


G.TEMP.TEMP2 


j ELSE, PRINT 


"STILL WORKING" 


MESSAGE 






MOV 


TEMP2,-(SP) 






MGV 


TEMP, -CSP) 






MOV 


4BLDMSG,-(SP) 






MOV 


#3, -CSP) 






MOV 


SP,RO 






TRAP 


C$PNTS 






ADD 


010, SP 



80$! 



90* : 
100$ 



CLR 


TEMP 








BR 


20* 








CALL 


SETUP <M<ILMUL 


• 


KILL THE MULTICAST 

MOV 
JSR 
.WORD 


ADDRESS 

0KILMUL,(R5)- 
R4,PREG14 
SETUP -ANCHOR 


P$POP 


R2 


i 


CHECK FOR ERROR 

MOV 


-CR5),R2 


BEQ 


90$ 


> 


IF OK CONTINUE 




ERRHRD 


34,EMSG25 


I 


ELSE, REPORT ERROR 


TRAP CSERHRD 
.WORD 34 
.WORD EMSG25 
.WORD 


BR 


100$ 


{ 


AND LEAVE 




JSR 


PC.ACTSND 


J 


PRINT NODE TABLE 





CLR 
P$POP 



RTS 



BLDFLG 
R2,R3,R4 



PC 



INDICATE THAT WE ARE NO LONGER BUILDING 

RESTORE REGISTERS 

MOV -(R5).R2 
MOV -(R5),R3 
MOV -(R5),R4 



^ACTION 


ROUTINE 


TO PRINT OUT THE 


SUMMARY DATA 




ACTSUM; 


CLRB 
P$PUSH 


PJNNUf 
R2,R3,R4 


; CLEAR NOTNUF FLAG 

MOV R4.CR5) 

MOV R3.CR5) 
MOV R2.CR5) 






MOV 


0STATBL.R1 


; MOVE ADDRESS OF TABLE TO Rl 






TST 


(Rl) 


j SEE IF TABLE EMPTY 






BNE 


10$ 


t IF NOT, CONT, 






PRINTF 


ftTABEMT.tfSUMM 


{ ELSE PRINT 'TABLE EMPTY' MESSAGE 








MOV 


OSUMM, -CSP) 








MOV 


OTABfcMT, -CSP 








MOV 


02, (SP) 








MOV 


SP.RO 








TRAP 


C$PNTF 








ADD 


tfto , SP 




BR 


20$ 


; EXIT 




10$ i 


CMP 


C R 1 ) , ft - 1 


I SEE IF AT END Of TABLE 






BEQ 


20$ 


I IF YES, EXIT 






TST 


(Rl) 


; SEE IF REST OF TABLE EMPTI 






BEQ 


20$ 


{ IF YES, EXIT 
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6297 



6298 



6299 



6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 



6310 



6311 

6312 



6313 



6314 



105252 

105252 

105256 

105262 

105264 

105270 

105272 

105272 

105276 

105302 

105306 

105310 

105312 

105316 

105316 

105322 

105326 

105330 

105332 

105336 

105342 

105346 

105346 

105350 

105352 

105354 

105360 

105364 

105370 

105370 

105372 

105374 

105376 

105402 

105406 

105410 

105412 

105416 

105416 

105422 

105426 

1054 30 

105432 

105436 

105442 

105442 

105446 

105452 

105454 

105454 

105460 

105462 

105466 

1054 72 

1054 74 

1054 76 

105502 



012725 
012725 
010125 
C04437 
005150 

012746 
012746 
012746 
010600 
104417 
062706 

012746 
012746 
010600 
104417 
062706 
012702 
012703 

112123 
005302 
001375 
013702 
013703 
013704 

010446 
010346 
010246 
012746 
012746 
010600 
104417 
062706 

012746 
012746 
010600 
104417 
062706 
013702 

012725 
004437 
007446 

012746 
010246 
012746 
012746 
010600 
104417 
062 706 



002324 
000006 

070656 



002324 
070043 
000002 



000006 

070064 
000001 



000004 
000026 
002664 



002672 
002674 
002676 



070150 
000004 



000012 

070177 
000001 



000004 
002700 

002702 
070656 



100526 

070262 
000003 



000010 



12 
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CALL BINHEX Rl, #6, ftSTRBUK I PRINT SUMMARY 



SEQ 148 



PRINTF 4SUMMS1 , 4STRBUF 



PRINTF 4SUMMS2 



15$ 



MOV 


026, R2 


MOV 


4STATBF.R3 


M0V8 


CR1)*.CR3)» 


DEC 


R2 


BNE 


15$ 


MOV 


STATBF»6.R2 


MOV 


STATBF*10,R3 


MOV 


STATBF*12,R4 


PRINTF 


4SUMMS3,R2,R3,R4 



PRINTF 0SUMMS4 



MOV STATBF.14.R.? 

CALL BINDEC 4STATBF*16 



PRINTF 4SUMMS5 , R2 , 4DECSTR 



NODE ADDRESS 



DATA 

MOV 

MOV 

MOV 

JSR 

.WORD 



4STRBUF.CR5)* 
06,rR5)* 
R1.CR5)* 
R4.PREG14 
BINHEX -ANCHOR 



FIRST HEADER 



GET STATISTICS SIZE 

GET BUFFER ADDRESS FOR STATISTICS 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 
MOV 
MOV 
TRAP 
AOD 
FOR THIS 



(SP) 

-CSP) 



4STRBUF, 
♦SUMM31, 
42, -CSP) 
SP,RO 
CJPNTF 
46, SP 



4SUMMS2, -CSP) 
#1, -CSP) 
SP.RO 
CSPNTF 
*4. SP 
NODE 



BUFFER THE STATISTICS 

HAVE ALL BYTES FOR NODE BEEN 

BRANCH IF NOT 

RX NOT COMPLETE 

RX COMPLETE 

LENGTH ERRORS 

PRINT THEM OUT 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

SECOND HEADER 

MOV 

MOV 

MOV 

TRAP 

ADD 

COMPARE ERRORS 

PUT BYTES COMPARED INTO ASCII 



XFERRED? 



R4 . - C SP ) 

R3.-CSP) 
R2, -CSP) 

4SUMM53, -(SP) 
44. -CSP) 
SP.RO 
CSPNTF 
412, SP 

4SUMMS4, -(SP) 
41, -CSP) 
SP.RO 
CSPNTF 
44, SP 

STRING 



l PRINT THEM OUT 



MOV 
JSR 
.UORD 



CALL BINDEC 0STATBF *2c 



I PUT BtTES TRANSFERED 



4STATBF*16,CR5K 
R4.PREG14 

BINDEC -ANCHOR 

MOV 40ECSTR, -CSP) 

MOV R2, -ISP) 

MOV 4SUMMS5, -(SP) 

MOV 43, v'SP^ 

MOV SP.RO 
TRAP C$PNU 

ADD 410, SP 
INTO ASCII STRING 



G12 
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SEQ 149 





105502 


012725 


002706 




105506 


0044 37 


070656 




105512 


007446 




6315 


105514 








105514 


012746 


100526 




105520 


012746 


070300 




105524 


012746 


000002 




105530 


010600 






105532 


104417 






105534 


062706 


000006 


6316 


105540 


000637 




6317 


105542 








105542 


014502 






105544 


014503 






105546 


014504 




6318 


105550 


000207 




6319 








6320 








6321 








6322 








6323 








6324 








6325 








6326 








632? 








6328 








6329 








6330 








6331 








6332 








6333 








6334 








6335 








6336 








6337 








6338 








6339 








6340 








6341 








6342 








6343 








6344 


105552 






6345 


105552 


105737 


003222 


6346 


105556 


001402 




634 7 


105560 


000137 


106466 


6348 


105564 






6349 


105564 


105037 


003220 


6350 


105570 








105570 


012725 


002656 




105574 


012725 


002316 




105600 


004437 


070656 




105604 


026004 




6351 


105606 








105606 


014501 




6352 


105610 


001012 




6 55 3 


105612 






6354 


105bl2 







PRINTF 0SUMMS6 , tfDECSTR 



I PRINT 



20$ 



} 



BR 
P$POP 



RTS 



10$ 
R2.R3.R4 



PC 



PLAY IT AGAIN, SAM 



MOV 


ttSTATBF*22,(R5)> 


JSR 


R4.PREG14 


.WORD 


BINOEC -ANCHOR 




MOV V>DECSTR,-CSP) 




MOV 0SUMMS6.-CSP) 




MOV 02,-CSP) 




MOV SP.RO 




TRAP C$PNTF 




ADD *6 , SP 


SAM 




MOV 


-CR5),R2 


MOV 


-(R5),R3 


MOV 


-<R5).R4 



{ACTION ROUTINE TO INITIATE THE REQUEST ID TEST TO THE SPECIFIED NODE 

i 

\ FUNCTIONAL DESCRIPTION 

{ THIS SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 

i TO THE NODE SPECIFIED BY THE OPERATOR IN THE COMMAND LINE, 

j THE jYSTEM ID INFO OF THE SPECIFIED NODE IS THEN DISPLAYED. 

; IF THE NODE DOES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 

; AN ERROR IS REPORTED TO THE OPERATOR. 

5 INPUTS - IMPLICIT - THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF . 

; OUTPUTS - SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 

i 

5 CALLING PROCEDURE - JSR PC, ACTIOT 

! SIDE EFFECTS - XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUB. 

; REGISTER USAGE - Rl POINTS TO $WDMO FUR WRITE MODE OPERATIONS. 

R2 IS SCRATCH 
I R3 POINTS TO THE RECEIVED MESSAGE BUFFER, 

R4 POINTS TO TIMOUT TIMER 



j SEE IF ADDRESS ENTERED WAS VALID 
{ IF NOT, EXIT ACTION ROUTINE 



i 

i 

• - - ♦ 




HH 1 


ACTIDT: 








TSTB 


P$AERR 




BEQ 


10$ 




JMP 


130$ 


10$: 








CLRB 


P$NNUr 




CALL 


CMPADR 



{CLEAR NOTNUF FLAG 
0ADRBUF.0ILLADR i SEE IF ILLEGAL ADDRESS 

MOV *ILLADR,(R5)» 
MOV 0ADR6UF.(R5'>* 
JSR R4.PREG14 
.WORD CMPADR -ANCHOR 



15$ 



PJPOP 


Rl 


BNF 


20$ 


PRINTF 


01LAOMS 



-(R5),Ri 
ELSE PRINT ILLEGAL ADDRESS MESSAGE 



MOV 
IF NO. CONTINUE 



H 1 ° 
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SEQ 150 





105612 


012746 


052565 




105616 


012746 


000001 




105622 


010600 






105624 


104417 






105626 


062706 


000004 


6555 


105632 


000137 


106466 


6356 


105636 






t>357 


105636 








105636 


010425 






105640 


010325 






105642 


010225 






105644 


010125 




6358 


105646 








105646 


012725 


004010 




105652 


012725 


002316 




105656 


004437 


070656 




105662 


026004 




6359 


105664 








105664 


014501 




6360 


105666 


001006 




6361 


105670 








105670 


104456 






105672 


000100 






105674 


066615 






105676 


000000 




6362 


105700 


000137 


106456 


6363 


105704 






6364 


105704 


012737 


177776 050320 


6365 


105712 








105712 


004437 


070656 




105716 


006330 




6366 


105720 








105720 


012725 


000001 




105724 


004437 


070656 




105730 


002326 




636 7 


105732 








105732 


014502 




6368 


105734 


001402 




6369 


105736 


000137 


106430 


6370 


105742 






6371 


105742 


005737 


050274 


6372 


105746 


001412 




6373 


105750 








105750 


012746 


052411 




105 754 


012746 


000001 




105760 


010600 






105762 


104417 






105764 


062706 


000004 


6374 


105770 


000137 


106456 


6375 


105 7 74 






6376 


105774 


012704 


003762 


6377 


106000 


012714 


000012 


6378 


106004 






6379 


106004 








106004 


104422 




6380 


106006 


005 714 




6381 


106010 


001427 





20$ 



JMP 130$ 
P$PUSH R1,R2,R3,R4 



CALL CMPADR 0ADR3UF ,tfPHYADR 



P$P0P Rl 



25$ 



BNE 
ERRHRD 



JMP 

MOV 
CALL 



CALL 



30$ 



BEQ 

JMP 

TST 
BEQ 
PRINTF 



MOV 0ILADMS, -CSP) 

MOV 01, -CSP) 

MOV SP.RO 

TRAP C$PNTF 

AOD fr4,SP 



SAVE REGISTERS 

MOV R4,(R5)* 
MOV R3,CR5)* 
MOV R2,CR5)* 
MOV R1.CR5)* 

SEE IF ADDRESS IS OWN (HOST NODE) 



25$ 
64.EMSG64 



120$ 

0-2.TEMP2 
BLOREQ 



MOV 
MOV 
JSR 
.WORD 

MOV 

REPORT THAT WE CAN'T 



0PHYADR,(R5> 
0ADRBUF,CR5)+ 
R4,PREG14 
CMPADR -ANCHOR 

-(R5),R1 



USE OUR OWN ADDRESS 
TRAP C$ERHRD 
.WORD 64 
.WORD EMSG34 
.WORD 
RESTORE REGISTERS AND EXIT 

SET C0UN1ER FOR NO. OF TIMES TRIED 
BUILD REQUEST ID MESSAGE PACKET 



XMIT 



0XMTDAT 



P$POP R2 



30$ 
90$ 

RETRYS 

40$ 

ORTR^ER 



JSR 
.WORD 

TRANSMIT REQUEST 
MOV 
JSR 
.WORD 

GET RESULTS, R2 - 
MOV 
IF OK BRANCH 
ELSE JUMP TO 90$ 



R4.PREG14 
BLDREQ-ANCHOR 

4XMTDAT,(R5)f 
R4.PREG14 
XMIT -ANCHOR 
SUCCESS /FAILURE 
*CR5),R2 



SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 
IF NO, CONT, 
YES, PRINT -EXCESSIVE COLLISIONS* MESSAGE 



JMP 



120$ 



40$: 








MOV 


0TIMERS.R4 




MOV 


010. ,CR4) 


50$: 


BREAK 






TST 


(R4) 




BEQ 


60$ 



t EXIT 

\ SET UP FOR 10 SECOND TIMOUT 



TRAP 
SEE IF TIME HAS EXPIRED 
IF YES, BRANCH 



MOV 


0RTR,'ER, -CSP) 


MOV 


01. -CSP) 


MOV 


SP,RO 


TRAP 


CJPNTF 


ADD 


<?4,SP 



C$BRK 



1 1 ° 



c. 
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SEQ 151 



6382 


106C12 








106012 


004437 


070656 




106016 


003044 




6383 


106020 








106020 


014502 




6384 


106022 


001770 




6385 


106024 


013703 


024226 


6386 


106030 


016303 


000004 


6387 


106034 


026327 


000022 051115 


6388 


106042 


001426 




6389 


106044 


005237 


050320 


6390 


10605c 








106050 


012725 


024226 




10605* 


012725 


000001 




106060 


004437 


070656 




106064 


006450 




6391 


106066 


001346 




6392 


106070 






6393 


106070 








106070 


012746 


064050 




106074 


012746 


000001 




106100 


010600 






106102 


104417 






106104 


062706 


000004 


6394 


106110 


005237 


050032 


6395 


106114 


000137 


106440 


6396 


106120 






6397 


106120 


005237 


050030 


6398 


106124 


062737 


000056 050042 


6399 


106132 


010302 




6400 


106134 


062702 


000042 


6401 


106140 






6402 


106140 








106140 


012725 


002324 




106144 


012725 


000006 




106150 


010225 






106152 


004437 


070656 




106156 


005150 




6403 


106160 








106160 


012746 


002324 




106164 


012746 


067266 




106170 


012746 


000002 




106174 


010600 






106176 


104417 






106200 


062706 


000006 


6404 


106204 


016302 


000022 


6405 


106210 








106210 


010246 






106212 


012746 


067325 




106216 


012746 


000002 




106222 


010600 






106224 


104417 






106226 


062706 


000006 


6406 


106232 


116302 


000027 


6407 


106236 








106236 


010246 






106240 


012 746 


067360 



CALL 



60$ 



70$ 



80$ 



RECEVE 



P$POP R2 



BEQ 


50$ 


MOV 


RRGNXT.R3 


MOV 


L0ADD(R3\R3 


CMP 


SIRCPTCRSI.^'MR 


BEQ 


70$ 


INC 


TFMP2 


CALL 


GETRNX 41.MRGNXT 



BNE 50$ 
PRINTF OEMSG22 



CHECK FOR ANSWER 

JSP R4,PREG14 
.WORD RECEVE -ANCHOR 
R2 HOLDS NO. OF BUFFERS RECEIVED 

MOV -CR5),R2 
IF NO BUFFERS RECEIVED. LOOP 
GET RECEIVE RING POINTER 
POINT R3 TO MESSAGE BUFFER 
SEE IF MESSAGE RECEIVED IS IN REPLY 
IF YES, BRANCH TO 70$ 
INCREMENT RETRY COUNTER 
THROW OUT THE PACKET 
MOV 
MOV 
JSR 
.WORD 



TO ONE SENT 



*RRGNXT,(R5)f 

41.CR5)* 

R4,PREG14 
GETRNX -ANCHOR 



IF NO, LOOK FOR CORRECT REPLY MESSAGE 



ELSE, REPORT ERROR 



INC S.NREC 

JMP 100$ 

INC S.REC 

ADD 046..S.XFER 

MOV R3.R2 

ADD 0SIADDR.R2 

CALL BINHEX R2,46 , 0STRBUF 



UPDATE SUMMARY DATA 
AND EXIT 



MOV *EMSG22,-(SP) 

MOV 01,-CSP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 04.SP 



j INCREMENT 'RECEIVED MESSAGES' COUNTER 

; UPDATE 'BYTES TRANSFERED' COUNTER 

j PUT POINTER INTO R2 

; POINT R2 TO ADDRESS 

i PUT ADDRESS INTO STRBUF 



PRINTF 0SIMSG1.4STRBUF 



MOV SIRCPT(R3),R2 

PRINTF 0SIMSG2.R2 



MOVB SIVERSCR3),R2 

PRINTF OSIMSG3,R2 



MOV 


0STRBUF 


.CR5)* 




MOV 


«6,(R5) 


♦ 




MOV 


R2,CR5) 


♦ 




JSR 


R4.PREG14 




.WORD 


BINHEX- 


ANCHOR 




PRINT REMOTE NODE ADDRESS 








MOV 


OSTRBUF. 


•(SP) 




MOV 


0SIMSG1, 


-CSP) 




MOV 


02, -CSP) 






MOV 


SP.RO 






TRAP 


CSPNTF 






ADD 


46, SP 




GET RECEIPT NUMBER 








PRINT RECEIPT NUMBER 










MOV 


R2.-CSP) 






MOV 


0SIMSG2, 


(SP) 




MOV 


02, -CSP) 






MOV 


SP.RO 






TRAP 


C$PNTF 






ADD 


«6,SP 




GET VERSION NO. AND 


PRINT 








MOV 


R."?, ■(. SP^ 






MOV 


#SINSU5, 


•CSP) 



K-J 



12 
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106244 


012746 


000002 






106250 


010600 








106252 


104417 








106254 


062706 


000006 




6408 


1C6260 


116302 


000030 




6409 


106264 
106264 


010246 








1C6266 


012746 


067420 






106272 


012746 


000002 






106276 


010600 








106300 


104417 








106302 


062706 


000006 




6410 


106306 


116302 


000031 




6411 


106312 
106312 


010246 








106314 


012746 


067441 






106320 


012746 


000002 






106324 


010600 








106326 


104417 








106330 


062706 


000006 




6412 


106334 


116302 


000035 




6413 


106340 

106340 


010246 








106342 


012746 


067467 






106346 


012746 


000002 






106352 


010600 








106354 


104417 








106356 


062706 


000006 




6414 


106362 


116302 


000053 




6415 


106366 
106366 


010246 








106370 


012746 


067515 






106374 


012746 


000002 






106400 


010600 








106402 


104417 








1064O4 


062706 


000006 




6416 


106410 










106410 


012725 


024226 






106414 


012725 


000001 






106420 


004437 


070656 






106424 


006450 






6417 


106426 


000404 






6416 


106430 






90$ j 


6419 


1064 30 
106430 
106432 
1064 34 
106436 


104455 
0000 30 
064103 
070306 






6420 


106440 






1005t 


6421 


106440 










106440 


012725 


002316 






106444 


012725 


000001 






106450 


004437 


070656 






106454 


007176 






6422 


106456 






110*: 


6423 


106456 






120* j 


6424 


106456 









MOVB SIEC0(R3),R2 
PRINTF 0SIMSG4.R2 



MOVB SIUEC0(R3),R2 
PRINTF OSIMSG5.R2 



MOVB SIFNCT(R3),R2 
PRINTF 0SIMSG6.R2 



M0V8 SIDEV(R3),R2 
PRINTF GSIMSG7.R2 



CALL GETRNX 01,ORRGNXT 





SEQ 152 


MOV 


#2,-CSP) 


MOV 


SP,RO 


TRAP 


C*PNTF 


ADD 


#6,SP 


GET ECO NO. AND PRINT 




MOV 


R2.-CSP) 


MOV 


#SIMSG4.-(SP) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


CSPNTF 


ADD 


*>6,SP 


GET USER ECO NO. AND PRINT 




MOV 


R2 f -CSP) 


MOV 


0SIMSG5.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADO 


06, SP 


GET FUNCTON CODE AND PRINT 




MOV 


R2.-CSP) 


MOV 


0SIMSG6, -(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CSPNTF 


ADD 


06, SP 


GET DEVICE TYPE AND PRINT 




MOV 


R2.-CSP) 


MOV 


0SIMSG7, -(SP) 


MOV 


*2 t (SP) 


MOV 


SP.RO 


TRAP 


CSPNTF 


ADD 


06,SP 


UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTO 


MOV ORRGNXT 


,(R5)> 


MOV *1.(R5) 


♦ 


JSR R4.PREG14 


.WORD GETRNX- 


ANCHOR 



BR 



100$ 



ERRDF 24 I EMSG24,ERR1 



t EXIT 
I ERROR 



CAN* T TRANSMIT PACKETS 

TRAP CSERDF 
.WORD 24 
. WORD EMSG24 
.WORD ERR1 



CALL WRITES fll.OADRBUF 



P$POP Rl,R2,R3,R4 



UPDATE SUMMARY TABLE 
MOV 
MOV 
JSR 
.WORD 



j RESTORE REGISTERS 



OADRBUf , CR5)> 
*1,(R5)* 

R4.PREG14 

WRITES-ANCMGR 
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SEQ 153 





106456 


014501 






106460 


014502 






106462 


014503 






106464 


014504 




6425 


106466 






6426 


106466 


000207 




6427 








6428 








6429 








6430 








6431 


1064 70 






6432 


106470 


105714 




6433 


1064 72 


001401 




6434 


1064 74 


0004 37 




6435 


1064 76 






6436 


106476 


012737 


061644 002312 


6437 


106504 


013701 


002372 


6438 


106510 


0C6301 




6439 


106512 


062701 


003324 


6440 


106516 








106516 


012746 


054345 




106522 


012746 


000001 




106526 


010600 






106530 


104417 






106532 


062706 


000004 


6441 


106536 








106536 


013746 


002376 




106542 


013746 


002374 




106546 


011146 






106550 


012746 


055002 




106554 


012746 


000004 




106560 


010600 






106562 


104417 






106564 


062706 


000012 


6442 


106570 


105037 


003220 


6443 


106574 






6444 


106574 


000207 




6445 








6446 








644 7 








6448 


1065 76 






6449 


106576 


012737 


000020 003734 


6450 


106604 


000207 




6451 








6452 








6453 








6454 








6455 


106606 






6456 


106606 








106606 


012725 


000006 




106612 


012725 


002316 




106616 


013725 


0023 70 




106622 


004437 


070656 




106626 


004600 




6457 


106630 








106630 


014537 


003222 


6458 


106634 


105737 


003222 



130$: 



MOV 
MOV 
MOV 
MOV 



-CR5),R1 

-CR5),R2 
-CRS),R3 
-CR5),R4 



RTS 



PC 



{ACTION ROUTINE TO CHECK FOR ADDITION PARAMETER CHANGE INPUTS 
j AND PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 



{CHECK FOR ADDITIONAL INPUT 

;BR IF NO 

{IF YES RETURN 



ACTMSG: 








TST8 


CR4) 




BEQ 


10$ 




BR 


20$ 


10$ i 








MOV 


#CMDTY6,KEYWD1 




MOV 


P$TYPE,R1 




ASL 


Rl 




ADD 


4MSGTAB.R1 




PRINTF 


4MSGPRM 



;GET MESSAGE TYPE ASCII STRING ADDRESS 
{INTO Rl 

{PRINT 'MESSAGE' COMMAND MESSAGE 









MOV 


4MSGPRM.-CSP) 








MOV 


41, CSP) 








MOV 


SP.RO 








TRAP 


CiPNTF 








ADD 


44, SP 




PRINTF 


#MSG4,CR1),P$SIZE,P$CPYS {PRINT MSG 


PARAMETERS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


P$CPYS. -CSP) 
P$SIZE. -CSP) 
CR1),~CSP) 
4MSG4, -CSP) 
44, -CSP) 
SP-RO 
CSPNTF 
412, SP 




CLRB 


P$NNUF {CLEAR NOTNUF FLAG 






20*: 


RTS 


PC 






Iaction 


ROUTINE 


TO RETURN CONTROL TO THE SUPERVISOR 






ACTEXTj 


MOV 
RTS 


4CEXIT.CFL.AG :SET EXIT FLAG 
PC 







ACTION ROUTINE TO TAKE NI NODE ADDRESS FROM INPUT STRING BUFFER 
AND STORF IT IN THE BUFFER CALLED ADRBUF 



ACTXAD: 



CALL 



EDPACK CB0ADR,4ADRBUF,46 



P$POP 
TSTB 



P$AERR 
P$AERR 



{PUT NODE ADDRESS INTO ADRBUF 

MOV 46.CR5)* 

MOV 4ADRBUF,(R5)» 

MOV CB0ADR,(.R5^ 

JSR R4.PREG14 

.WORD EDPACK -ANCHOR 

{SET ADDRESS -12 CHAR. GOOD 'B AD FLAG 

MOV -CR5),P$AERR 

j IF GOOD, RETURN 
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6459 


106640 


001412 




6460 


106642 








106642 


012746 


052746 




106646 


012746 


000001 




106652 


010600 






106654 


104417 






106656 


062706 


000004 


6461 


106662 


105037 


003220 


6462 


106666 






6463 


106666 


000207 




6464 








6465 








6466 








6467 








6468 


106670 


01043 7 


002370 


6469 


106674 


000207 




6470 








6471 








6472 








6473 








64 74 


106676 


012737 


000000 


6475 


106704 


000207 




6476 








64 7 7 








6178 








6479 


106 706 


012737 


000001 


6480 


106714 


000207 




6481 








6482 








6483 








6484 


106716 


012737 


000002 


6485 


106724 


000207 




6486 








6487 








6488 








64 39 


106 726 


012737 


000003 


6490 


106734 


000207 




6491 








6492 








6493 








6494 


106736 


012737 


000004 


6495 


106744 


000207 




6496 








6497 








6498 








6499 


106746 


012757 


000005 


6500 


106754 


000207 




6501 








6502 








6503 








6504 


106 756 


105037 


003223 


6505 


106 762 


004737 


101656 


6506 


106766 


105737 


003221 


6507 


106772 


001403 




6508 


106774 


105037 


C 3221 


6509 


107000 


000415 




6510 


107002 


022737 


000006 



002372 



002372 



002372 



002372 



002372 



002372 



BEQ 10$ 
PRINTF tfCADRER 



10$: 



CLRB 

RTS 



PSNNUF 
PC 



{ACTION ROUTINE TO STORE POINTER TO 
{IN COMMAND INPUT BUFFER 



{ELSE, PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 

} AND CLEAR 'NOT ENOUGH' FLAG 



BEGINING OF OPERATOR INPUT ADDRESS 



SEQ 154 



tfCADRER, -CSP) 
♦1,-CSP) 

SP,RO 

C$PNTF 
#4 , SP 



ACTSR4? MUV 
10$: RTS 



R4.CB0ADR 
PC 



{SAVE STRING POINTER 



{ACTION ROUTINE TO SET MESSAGE TYPE = ALPHA FLAG 



ACTALP; MOV 
RTS 



OALPHA,P$TYPE 
PC 



ACTION ROUTINE TO SET MESSAGE TYPE 



ACTONE: MOV 
RTS 



OONES.PJTYPE 
PC 



ACTION ROUTINE TO SET MESSAGE TYPE - 



ACTZRO: MOV 

RTS 



*ZEROS,P$TYPE 
PC 



ACTION ROUTINE TO SET MESSAGE TYPE = 



*ONEALT,P$TYPE 
PC 



ACT1AL: MOV 
RTS 

{ACTION ROUTINE TO SET MESSAGE TYPE - 



ACTOAL; MOV 
RTS 



*ZROALT,P$TYPE 
PC 



{SET MESSAGE TYPE 

ALL ONES FLAG 

{SET MESSAGE TYPE 

ALL ZEROS FLAG 

:SET MESSAGE TYPE 

ALTERNATING ONES FLAG 
{SET MESSAGE TYPE 

ALTERNATING ZEROS FLAG 
{SET MESSAGE TYPE 



{ACTION ROUTINE TO SET MESSAGE TYPE 



ACTCTT: MOV 
RTS 



0CCITT,P$TYPE 
PC 



* CCITT FLAG 

{SET MESSAGE TYPE 



jAC-JN ROUTINE TO SET MESSAGE TYPE ■ OPERATOR SELECTED INPUT 



003734 



ACTOPR: CLRB 
JSR 
TSTB 
BEQ 
CLRB 
BR 

10$ : CMP 



P$MERR 

PC, TRVADR 

P$GDBD 

10$ 

P$GDBD 

20$ 

tfOPRSEL.CFLAG 



{CLEAR MESSAGE ERROR FLAG 
{PARSE THROUGH INPUT STRING 
{TEST GOOD/BAD FLAG 

IF GOOD, BR 10$ 

CLEAR FLAG 

SET CTARGT FLAG ANO RETURN 
{CHECK TO SEE IF STRING VALID 



saWiB&ws m^kmu^ mc *° Mi2o ° 
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SCQ 155 



6511 
6512 
6513 



6514 
6515 
6516 
6517 



6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 



107010 
107012 
107020 
107020 
107024 
107030 
107032 
107034 
107042 
107044 
107044 
107050 
107054 
107056 
107060 
107064 
107066 
107072 
107074 
107102 



107104 
107110 



6541 
6542 
6543 
6544 
6545 
6546 
654 7 
6548 
6549 
6550 
6551 
6552 
6553 
6554 



107U2 
1071^0 
107122 
107130 
107132 
107140 
107142 
107142 
107146 
107152 
107154 
107156 
107162 
107166 



107170 
107176 
107200 
107206 
107210 
107216 
107220 



001011 
012737 

013725 
004437 
025352 
000423 
022737 
001011 

012746 
012746 
010600 
104417 
062706 
000406 
105737 
001003 
112737 
000207 



004737 
000207 



023727 
003410 
022737 
003404 
013737 
000410 

012746 
012746 

010600 
104417 
062706 
004737 
000207 



023727 
003410 
022737 
003404 
013737 
000410 



000006 002372 

002370 
070656 



000000 003734 20$: 



053756 
000001 



000004 
003223 
177777 



106470 



003214 
001001 
003214 



053575 
000001 



000004 
106470 



003214 
000400 
003214 



003221 



000040 
003214 
002374 



000000 
003214 
002376 



BNE 
MOV 
CALL 



BR 
CMP 
BNE 
PRINTF 



20$ 

0OPRSEL,P$TYPE 
SELMSG CBOAOR 



40$ 

0CTARGT,CFLAG 

30$ 

0UNBQND 



j IF NOT OK, RETURN WITH ERROR 


FLAG SET 


j SET MESSAGE TYPE 




j PUT OPERATOR SELECTED STRING 


INTO BUFFER 


MOV CBOAOR 


,(R5)* 


JSR R4,PREG14 


.WORD SELMSG 


-ANCHOR 


; RETURN 




{SEE IF CTARGT FLAG SET, IF YES ERROR 


(IF NOT SET, BR 30$ 




j ELSE PRINT UNBOUNDEO INPUT STRING ERR. MSG . 


MOV 


0UNBOND, -(SP) 


MOV 


41,-CSP) 


MOV 


SP,RO 


TRAP 


C$PNTF 


ADD 


04, SP 



30$: 



BR 

TSTB 

BNE 

MOVB 

RTS 



40$ 

P$MERR 

40$ 

0-l,P$GDBD 

PC 



40$: 

{ACTION ROUTINE TO CHECK FOR MORE 
lALTEREO 



{RETURN 
IF P$MERR FLAG SET 
WAS ENTERED, ERROR 
SET ERROR FL4G AND 
RETURN 



UNBOUNDED STRING 
ALREADY HANDLED 
RETURN 



ACTTYP: JSR 
RTS 



PC.ACTMSG 
PC 



INPUT AFTER MESSAGE TYPE HAS BEEN 



{CHECK FOR ADDITIONAL COMMANDS 



j ACTION ROUTINE TO INPUT MESSAGE SIZE PARAMETER, CHECK TO SEE IF 
{IT IS WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO 
;SEE IF MORE INPUT EXISTA 



ACTSZE: 



,p 


P$NUM,032. 


BL.E 


10$ 


CMP 


0513, ,P$NUM 


BlE 


10$ 


MOV 


P$NUM,P$SIZE 


BR 


20$ 



10$: 



PRINTF 0SIZLMT 



20$: 



; 



JSR 



PC.ACTMSG 

PC 



{CHECK FOR VALID SIZE RANGE 



{IF VALID CONTINUE 
{SET MESSAGE SIZE 

{PRINT SIZE LIMITS EXCEEDED MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADO 

{CHECK FOR ADDITIONAL COMMANDS 



OSIZLMT, -(SP) 
«1. -CSP) 

SP.RO 
C$PNTF 
04, SP 



{ACTION ROUTINE TO INPUT COPIES PARAMETFR, CHECK TO SFF IF IT IS 
WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO SEE IF 
MORE INPUT PARAMETERS EXIST 



ACTCPY 



CMP 


P$NUM ( 0O 


OLF 


10* 


CMP 


02 56. .PiNUM 


BL.E 


10$ 


MOV 


P$NUM,P$LP\ 


BR 


20$ 



10$: 



PRINTF 0CPYLHT 



{CHECK FOR VAI ID COPIES RANGE 



{IF VALID, CONllNUfc 
{SET MESSAGE COPIES 

{PRINT COPY LIMIT EXCEEDED MESSAGE 
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SEQ 156 





107220 


012746 


053511 




107224 


012746 


000001 




107230 


010600 






107232 


104417 






107234 


062706 


000004 


6555 


107240 


004737 


106470 


6556 


107244 


000207 




6557 








6558 








6559 








6560 


107246 


105037 


003220 


6561 


107252 


105737 


003222 


6562 


107256 


001051 




6563 


107260 








107260 


010325 






107262 


010225 




6564 


107264 


012702 


002316 


6565 


107270 


012703 


002412 


6566 


107274 








107274 


010325 






107276 


010225 






107300 


004437 


070656 




107304 


026004 




6567 


107306 








107306 


014501 




6568 


107310 


001416 




6569 


107312 


062703 


0)0010 


6570 


107316 


022713 


17 7777 


65 71 


107322 


001364 




6572 


107324 








107324 


012746 


053664 




107330 


012746 


000001 




107334 


010600 






10 7336 


104417 






107340 


062706 


^00004 


6573 


107344 


000414 




6574 


107346 


005023 




6575 


107350 


005023 




6576 


107352 


005023 




6577 


107354 


005013 




6578 


107356 








107356 


012746 


054044 




107362 


012746 


000001 




107366 


010600 






10737C 


104417 






107372 


062706 


000004 


6579 


107376 








107376 


014502 






107400 


014503 




6580 


1.07402 


000207 




6581 








6582 








6583 








6584 


107404 








107404 


010325 






107406 


010225 




6585 


107410 


012703 


000050 



20$: 



JSR 
RTS 



PC.ACTMSG 
PC 



MOV 
MOV 
MOV 
TRAP 
ADD 
{CHECK FOR ADDITIONAL COMMANDS 



OCPYLMT, -(SP) 
01, -CSP) 
SP,RO 

C$PNTF 
#4,SP 



ACTION ROUTINE TO CLEAR NODE SPECIFIED BY PHYSICAL ADDRESS FROM NODE TABLE 



ACTNAD: 



10$: 



CLRB 
TSTB 
BNE 
P$PUSH 



MOV 
MOV 
CALL 



20$: 



30$: 



P$NNUF 
P$AERR 
40$ 
R2.R3 



0ADRBUF.R2 
ON0DTBL.R3 
CMPADR R2»R3 



P$P0P Rl 



BEQ 


20$ 


ADO 


010, R3 


CMP 


0-1, CR3) 


BNE 


10$ 


PRINTF 


ONOCMPR 



BR 


30$ 


CLR 


CR3)* 


Cl.Fc 


(R3)* 


CLR 


CR3)* 


CLR 


(R3) 


FRINTF 


OADRDEL 



PJPOP H2.R3 



40$: RTS PC 

ACTION ROUTINE TU CLEAR NODE TABLE 
ACTNAL: P$PUSH R2.R3 



{CLEAR NOTNUF FLAG 
;SEE IF ADDRESS ENTERED WAS VALID 
j IF NOT, EXIT ACTION ROUTINE 
{SAVE R2 AND R3 

MOV R3,(R5)> 

MOV R2,(R5)* 
{MOVE ADDRESS OF ADD^FSS INTO R2 
{MOVE ADDRESS OF NODu TABLE INTO R3 
{SEE IF ADDRESSES MATCH 

MOV 

MOV 

JSR 

.WORD 



R3,(R5)+ 
R2.CR5)* 

R4.PREG14 
CMPADR ANCHOR 



MOV -CR5),R1 
j IF YES, BR 20$ 

su-SE POINT R3 TO NEXT ENTRY 

{SEE IF* END OF TABLE 

{IF NOT, COMPARE NEXT ENTRY 

{ELSE, PRINT ADDRESS DOESN'T COMPARE MSG. 

MOV 

MOV 

MOV 

TRAP 

ADD 
{RETURN 
{ELSE, CLEAR NODE FROM TABLE 



ONOCMPR, -(SP) 

01,-CSP) 

SP.RO 

C$PNTF 

#4 , SP 



{PRINT NODE DELETED FROM TABLE MESSAGE 



MOV 



OU 5 lLEN,R3 









MOV OADRDEL, -(SP) 








MOV 01. -(SP) 








MOV SP.RO 








TRAP C$PNTF 








ADD 04, SP 


{RESTORE R2 


AND 


R3 








MOV 


-(R5),R2 






MOV 


-(R5),R3 


{RETURN 








{SAVE R2.R3 












MOV 


R 3 , ( R5 "i . 






MOV 


R2.(R5)» 


j SET INCR. 


COUNTER TO 


40 
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6586 
6587 
6588 
6589 
6590 



t>591 
6592 



ti5^5 

6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
6603 



6604 
6605 
6606 
6607 



6608 
6609 
6610 
6611 



661c? 
6613 



6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
66? 3 
6624 



107414 
107420 
107422 
107424 
107426 
107426 
107432 
107436 
107442 
107444 
107446 
107452 
107456 
10 7456 
107460 
107462 



10 7464 
107464 
107472 
107476 
107504 
107512 
107514 
107514 
107520 
107522 
107524 
107532 
107534 
107534 
107540 
107542 
107544 
10755? 
107554 
10/554 
107560 
107562 
107564 
107564 
107570 
107572 
107600 
107602 
107606 
107610 



10/612 

10 7620 
10 76?? 
10 76?? 

107626 



012702 
005022 
005303 
001375 

012746 
012746 
012746 
010600 
104417 
062 706 
105037 

014502 
014503 
000207 



042737 
105037 
C13737 
022737 
001004 

004437 
016726 
000423 

022737 
001004 

004437 
020004 
000413 

0??737 
001004 

0044 3 7 
017352 
000403 

0044 37 
021446 
023727 
001741 
005337 
001336 
000207 



012/5/ 
00020 7 

0044 3 7 
017372 



002412 



053415 
054220 
000002 



000006 
003220 



1 00000 

003220 
003214 
000032 



070656 
000033 
070656 
00004 3 
070656 

70656 
002400 
002400 



10$} 



MOV 
CLR 
DEC 
BNE 
PRINTF 



0NODTBL.R2 

CR2)» 

R3 

10$ 

4TABCLR.0N0D 



C-RB 
P$POP 



RTS 



P$NNUF 
R?,R3 



PC 



lACTION ROUTINE TO RUN SPECIFIED TEST 



000000 

002400 
00231? 



ACTRUN: 



10$: 



002312 20$; 



002312 30$: 



40$t 



177777 50$: 



J 



BIC *6IT15,FLAG 

CLRB PINNUF 

MOV P$NUM,PIPASS 

CMP GCRNALL.KEtWDl 

BNE 20$ 

CALL RUNALL 



BR 50$ 

CMP OCIUPPR.KEYWOI 

RNE 30$ 

CALL R UNI. UP 



BR 50$ 

CMP OCDIR.KfcYWDl 

BNE 40$ 

CALL RUNDIR 



BR 501 

CALL RUNPAT 



CMP P$PASS,0 1 

8FQ 10$ 

DEC P$PASS 

BNE 10$ 

PT'i PC 



lACTION ROUTINE TO St T » fU'i All • E'LAU 



00003? 00^312 



070656 



ACTRNA; MOV 
RUNALL J CALL 



OCRNAll ,KtYWOl 

PC 

DIRCOM 



SEQ 157 



I MOVE NODE TABLE ADDRESS INTO R? 

iCLEAR BYTE IN NODE TABEL 

^DECREMENT COUNTER 

j CONTINUE UNTIL DONE 

j PRINT NODE TABLE CLEARED MESSAGE 





MOV 


*NOD , ■ ( SP ) 




MOV 


OTABCLR.-(SP) 




MOV 


02, (SP) 




MOV 


SP,R0 




TRAP 


CfPNTF 




ADO 


06, SP 


j CLEAR NOTNUf" FLAG 






^RESTORE R2 AND R3 






MOV 


-CR r O 


,«? 


MOV 


•CRE-), 


,R3 



I CLEAR OPERATOR FLAG 

I CLEAR 'NOT ENOUGH' FLAG 



I SEE 


IF ' All ' TEST 




1 If 


NO, C0N1INUE 




J IE 


YES, DO ALlNODE 






JSR 


R4,PREG14 




.WORD 


RUNALL -ANCHOR 



I IS IT LOOPPAIR' TEST 
i IF NO, CONTINUE 
j IF YES, DO LOOPPAIR 

JSR 
.WORD 

l IS U DIRECT- TEST 
i IF NO, CONTINUE 
j IF >ES, DO DIRECT 

JSR 
.WORD 



R4.PREG14 
RUNLUP- ANCHOR 



R4.PREG14 
RIJNOIR -ANCHOR 



{ ELSE, ITS 



PATTERN' 
JSR 
.WORD 
i SEE IF PASS SET FOR 
l IF *ES, I OOP 
I HAVE WE DONE ALL PASSES? 
I IF NO, LOOP 



TEST 

R4.PREGU 
RL*4PAT -ANCHOR 
INOEFINATE 



I SET M AG 

I RUN L00PD1RECT rt ST 

JSR 
.WORD 



R4.PRE.ii 1 4 
OIHCOM -ANCHOR 
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5EQ 158 



6625 


107650 
107650 


014501 








PtPOP 


Rl 


i 


CHECK RESULTS 

MOV 


-(R5),R1 


6626 


107652 


001415 








BEU 


20$ 


i 


IF OK, BRANCH 




662 7 


107654 


022701 


000001 






CMP 


01, Rl 


» 


ELSE, WAS TABLE EMPTY? 


6628 


107640 


001410 








BEQ 


10$ 


i 


IF YES, DON' T PRINI 


' ABORT MESSAGE 


b629 


107642 
107642 
107646 
107652 
107654 
107656 


012746 
012746 
010600 
104416 
062 706 


060672 
000001 

000004 






PRINTS 


OPASABT 


1 


ELSE ABORT TEST AND 


PRINT MESSAGE 
MOV OPASABT, -(SP) 
MOV 01,-CSP) 
MOV SP.RO 
TRAP C$PNTS 
ADD 04, SP 


b650 


107662 


000157 


110254 




10*: 


JMP 


100$ 








6651 


107666 


01275/ 


002412 


002410 


20$ { 


MOV 


0NODTBL,SL0T 


J 


MOVE NODE TABLE ADDRESS TO SLOT 


6652 


107674 
107674 
107700 


004457 
025556 


070656 






CALL 


FULSLT 


\ 


FIND FIRST ENTRY 
JSR 
.WORD 


R4,PREG14 
FULSLT -ANCHOR 


6655 


107702 


015701 


002410 






MOV 


SL0T.R1 


i 


ANO PUT TARGET ADDRESS INTO Rl 


6654 


107706 


015757 


0O2576 


050526 


50$ i 


MOV 


PICPYS.CPYCNT 


i 


SET UP LOOP FOR NO. OF COPIES 


6655 


107714 


062757 


000010 


002410 




ADD 


010, SLOT 


\ 


UPDATE SLOT 




6656 


107722 
107722 
107726 


004457 
025556 


070656 






CALL 


FULSLT 


1 


GET NEXT ASSIST NODE 
JSR 
.WORD 


FROM TABLE 
R4.PREG14 
FULSLT- ANCHOR 


6657 


107750 


015702 


002410 






MOV 


Sl.0T.R2 








6658 


107754 


022757 


177777 


002410 




CMP 


1, SLOT 


J 


SFF IF AT END OF TABLE 


6659 


107742 


001517 








BEQ 


90$ 


1 


IF rES, BR 




6640 


107744 








40* s 


CALL 


BLDFAS Rl.SLOT 


1 


BUILD FULL ASSIST MESSAGE 




107744 


015725 


002410 












MOV 


SL0T,(R5)* 




107750 


010125 














MOV 


R1.CR5). 




107752 


004457 


070656 












JSR 


R4,PREG14 




10 7756 


005502 














.WORD 


BLDFAS -ANCHOR 


6641 


107760 
107760 

107764 
107770 


012725 
0044 57 
002526 


OOOOO 1 
070656 






CALL 


XM1T OXMTDAT 


1 


TRANSMIT MESSAGE 

MOV 
JSR 
.WORD 


OXMTDAT, (RSI* 
R4.PREG14 
XMIT ANCHOR 


6642 


107772 
107772 


01A505 








P$POP 


R5 


J 


CHECK RESULTS 

MOV 


-CR5),R5 


664 5 


107774 


001404 








BEU 


50$ 


J 


If OK, CONTINUE. 




6644 


10 7 7 76 
107776 
110000 
110002 
110004 


104456 
000045 
064105 

oooooo 








ERRHRO 


57.EMSG24 


1 


PRINT ERROR MESSAGE 


TRAP C$ERHRD 
.WORD 57 
.WORD EMSG24 
.WORD 


6645 


110006 
110006 
110012 
110016 
110020 
110024 


012725 
012725 
010125 
004457 
005150 


002 524 
000006 

070656 




50$: 


CALL 


BINMtX R1,O6,0STRUUF 


i 


PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
JSR 
.WORD 


OSTRBL* ,(R5). 
06,(R5)» 

R1.1R5). 
R4.PRElil4 

BINHFX ANCHOR 


6646 


110026 
110026 

110052 
110056 
110040 
110044 


012725 
012725 
010225 

00445/ 
005150 


002546 
000006 

070656 






CALL 


BXNHF.x R2.06.0STRBU1 


i 


MOV 
MQv 
MOV 
JSR 
,WQRO 


0STRBU1 A R51 » 
Ot>,(R*). 
R2 . ( R5 ) . 
R4.PREG14 
BINHfx ANCHOR 


6647 


110046 










PFUNTU 


OTSTMM.GARUTl'^OSrRtKJK 


»0ARUtY6»*STHBUl I ASSISi NUUt • 




110046 


012/46 


002 54* 














MOV O'-THlli'l. < '*>' ' 




110052 


012746 


06174 7 














MOV OARUTit*. -vSP N 
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SF.Q 159 



6648 



6649 

6650 
6651 



665? 
6653 



6654 
6655 
6656 



6657 
6658 
6659 
6660 



6661 
6662 
6663 
6664 

6665 
6666 
666? 
6668 
6669 
66 70 
6671 
6672 
667 3 



6674 



110056 
110062 
110066 
110072 
110076 
110100 
110102 
110106 
110106 
110112 
110114 
110114 
110116 
110120 
110120 
110122 
110124 
110126 
110130 
110132 
110132 
110136 
110142 
110144 
110146 
110152 
110156 
110160 
110160 
110164 
110166 
110172 
110176 
110200 
110202 
110206 
110212 
110212 
110216 
110220 
110224 
110232 
110234 
110234 



110236 
110236 
110244 

110246 

110246 
110252 
110254 
110254 



012746 
012746 
012746 
012746 
010600 
104414 
062706 

004437 
021104 

014504 
001405 

10445c* 

000034 
064/64 
070432 
000410 

012746 
012746 
010600 
104414 
062 7C6 
005337 
001272 

013725 
010125 
012725 
004437 
007176 
000642 
062701 
010137 

004437 
025556 
013701 
022737 
001225 

000207 



012737 
000207 



004437 
01/372 

014501 



002324 
061757 

0607 70 
000005 



000014 
070656 



061157 
000001 



000004 
050326 



002410 

000002 
0706 r>6 



000010 
002410 

070656 

002410 
177777 



000043 



070656 



CALL 



60$: 



70$ t 



80$: 



90$: 



002410 



RUNCOM 



P$ POP R4 

BEQ 70$ 

ERRHRD 28.EMSG42.ERR3 



BR 80$ 

PRINTS OOKFU 



DEC CPrCNT 

BNE 40$ 

CALL WRITES 02.Rl.5l.0T 



BR 


30$ 


ADO 


010, Rl 


MOV 


Ri.SLOT 


CALL 


FULSLT 



100$ 



J 



MOV SL0T.R1 

CMP 0-1 .SLOT 

BNE 30$ 
RETURN 



(SP) 
-CSP) 



DO RECEIVE LOOP 

JSR 
.WORD 
CHECK RESULTS 

MOV 
IF OK, LOOP SOME 
ELSE PRINT ERROR 



MOV 0STRBUF, -fSP) 

MOV 0ARGTY7, 

MOV 0TSTMS4, 

MOV 05 . - C SP ) 

MOV SP,RO 

TRAP C$PNTB 

ADD 014, SP 

R4.PREG14 
RUNCOM ^ANCHOR 



(R5),R4 

MORE 

MESSAGE 
TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
28 

EMSG42 
ERR3 



MOV 

MOV 

MOV 

TRAP 

ADD 

i DECREMENT 'COPIES* COUNTER 

j IF MORE TO DO, LOOP 

I ELSE. UPDATE SUMMARY 

MOV 
MOV 
MOV 
JSR 
.WORD 



OOKFU, -CSP) 
01. -CSP) 

5P.R0 
CtPNTB 
04, SP 



TABLE 
SL0T,(R5)f 
R1.CR5)* 
02.CR5). 

R4.PREG14 
WRITES -ANCHOR 



t POINT Rl TO 
j UPDATE SLOT 
; GET ADDRESS 



NEXT TARGET NODE 



FROM TABLE 
JSR 
.WORD 



SEE 
IF 



IF ENO OF TABLE 
NO. CONTINUE ELSE 

RTS 



R4.PREG14 

FULSLT- ANCHOR 



f- INISHED 



PC 



jACTION ROUTINE TO bt.T RUN LOOP DIRECT' FLAG 



i 



ACTDIRj 
002312 MOV 

RTS 



0CDIR.KFYWD1 
PC 



RUNDIR: CALL 



DIPCOM 



P$P0P Rl 



j SET FLAG 



l CALL COMMON CODE 

JSR 

,W0RD 

MOV 



R4.PREG14 
DIMCOM ANCHOR 

CR5\R1 



E 1 3 
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SEQ 160 



6675 
66 76 
6677 

6678 
6679 
6660 



6681 
6682 
b683 



6684 
6685 
6686 
6687 
6688 



6689 
6690 
6691 



6692 



6693 
6694 
6695 
6696 
6697 
6698 



6699 



110256 

110262 

110264 

11^264 

1 10266 

110270 

110276 

110276 

110302 

110304 

110312 

110314 

110314 

110320 

110324 

110330 

110332 

110334 

110340 

110344 

110346 

110354 

110362 

110362 

1 10366 

110370 

110376 

110400 

110400 

110404 

110410 

110414 

110420 

110422 

110422 

110426 

110432 

110436 

110442 

110444 

110446 

110452 

110460 

110462 

110466 

1104 70 

110474 

110474 

1104 76 

110502 

110506 

110510 

110512 

110516 

110516 

110522 

110526 



022701 
001400 

000207 
005001 
012737 

004437 
025556 
022737 
001015 

012746 
012746 
012746 
010600 
104417 
062706 
012701 
000547 
012737 
013737 

004437 
025556 
022737 
001532 

012725 
012725 
013725 
004437 
005150 

012746 
012746 
012746 
012746 
010600 
104414 
062706 
022737 
001016 
013701 
006301 
062701 

011146 
012746 
012746 
010600 
104414 
062706 

013725 
004437 
005236 



000001 

002412 002410 

070656 

177777 002410 



053415 
053346 
000002 



000006 
OOOOOl 

002412 
002376 

070656 

177777 



10$ j 
DIRCOM; 



CMP 
BEQ 

RETURN 

CLR 
KOV 
CALL 



CMP 
BNE 
PRINTF 



002410 
050326 



002410 



10$: 
20$: 



002324 
000006 
002410 
070656 



002324 
061337 
060735 
000003 



000010 

000005 002312 

002372 

003324 



061271 
000002 



MOV 

3R 

MOV 

MOV 

CALL 



CMP 
BEQ 
CALL 



30$: 



000006 

0024 10 
0/0656 



40$; 



CALL 



01. Rl 

10$ 



Rl 

ONODTBL.SLQT 
FULSLT 



0-1, SLOT 

10$ 

OTABEMT.ONOD 



j WAS TABLE EMPTY? 

I I*" YES, DON'T PRINT 

RTS PC 

j CLEAR RESULTS REGISTER 
» MOVE NODE TA8LE ADDRESS TO SLOT 
j SEE IF TABLE P.MPTV 

JSR R4,PREG14 

.WORD FULSLT -ANCHOR 



dl.Rl 

100$ 

ONOD BL.SLOT 

P$CPfS,CPYCNT 

FUL5.T 



0-1, SLOT 

100$ 

BINHEX SLOT , 06 , 0STRBUF 



\r NO CONTINUE 






ELSE, PRINT "TABLE EMPTY" 


MESSAGE. 


MOV 




ONOD. -CSP) 


MOV 




OTABEMT, -CSP) 


MOV 




♦2. -CSP) 


MOV 




SP,RO 


TRAP 




C$ 3 NTF 


ADD 




06, SP 


PUT 'TABLE EMPTY' INDICATOR 


IN Rl 



SET 
GET 



UP FOR NO. 
NEXT NODt 



i SEE IF AT ENO 
; IF YES. EXIT 
; PRINT ADDRESS 



OF COPIES 
IN TABLE 
JSR R4,PREG14 

.WORD FULSLT -ANCHOR 
OF TABLE 



PRINTB 0TSTMS2, ODIRECT , OSTRBUT 



NODE ADDRESS 



BEING 
MOV 

MOV 
MOV 
JSR 
.WORD 



TESTED 

0STRBUF.CR5)* 
06.CR5)* 
SLOT.CRS). 
R4,PREG14 
BINHEX -ANCHOR 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



OSTRBUF. 
ODIRECT, 

0TSTMS2. 
$3, (SP) 
SP.RO 
C$PNTB 
010, SP 



-CSP) 
•CSP) 
-CSP) 



CMP 


0CPATRN.KEYWD1 


BNE 


40$ 


MOV 


PITYPE.R1 


ASL 


Rl 


ADD 


0M5UTA»,R1 


PRINTB 


ttMESPAl.CRl) 



BLDLU SLOT 



t CALL BUILD 





MOV 


(Rl). ■< 




MOV 


ONE SPA 1 




MOV 


02, CSP 




MOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


ot , SP 


LOQPDIRECT 


SUBROUTINE 


MOV 


SL.0T.CHS1* 


JSR 


R4,PRf 


:ul4 


.WORD 


BL 01 


ANCHOR 



i SP ^ 



CSP) 
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6 700 



6701 

6702 
6703 



6 704 
6705 



6706 

6707 
6708 



6709 
6710 
6711 



6712 
6713 
6714 



6715 
6716 
6717 



6718 
6719 
6720 
6 721 
6722 
6723 
6724 
6725 



6726 
6/2 7 
6728 



110530 
110530 
110534 
110540 
110542 
110542 
110544 
110546 
110546 
110550 
110552 
110554 
110556 
110560 
110560 
110564 
110566 
110566 
110570 
110572 
110572 
110574 
110576 
110600 
110602 
110606 
110610 
110610 
110614 
110620 
110622 
110624 
110630 
110634 
110636 
110636 
110642 
1 10646 
110652 
110654 
110662 
1 10664 
110664 
110666 



110670 
110676 

110700 
110700 
110700 
110704 
110706 
110712 

110720 



012725 
0044 37 
002326 

014502 
001405 

104456 
000032 
064103 
000000 
000676 

004437 
021104 

014504 
001407 

104456 
000033 
064322 
070544 
012701 
000410 

012746 
012746 
010600 
1C4414 
062706 
005337 
001272 

013725 
012725 
004437 
007176 
062737 
000634 

010125 
000207 



012737 
000207 



00443 7 
025624 
00503 7 
012737 



000001 
070656 



CALL 



P$PQP 



50$: 



60$: 



070656 



177777 



061025 
C00001 



000004 
050326 



70$: 



80$: 



002410 
000001 
070656 

000010 002410 90$: 

100$: 



XMIT 



R2 



0XMTDAT 



BEQ 60$ 
ERRHRD 26.EMSG24 



DEC CPYCNT 

BNE 30$ 

CALL WRITES 01, SLOT 



ADD 010, BLOT 

BR 20$ 

RETURN Rl 



SEQ 161 



i TRANSMIT LOOPDIRECT MESSAGES 

MOV 0XMTDAT.CR5)* 

JSR R4,PREG14 

.WORD XMIT -ANCHOR 

I GET RESULTS, R2 - SUCCESS/FAILURE 

MOV -(R5),R2 

; IF OK, EXIT 

; ELSE PRINT ERROR MESSAGE 

TRAP CiFRHRD 







.WORD 


26 






.WORD 


EMSG24 






.WORD 





RR 


20 > 






CALL 


RUNCOM 


; DO RECEIVE LOOP 








■ <SR R4.PREG14 






. WORD RUNCOM 


-ANCHOR 


P$POP 


M 


; G.^t RESULTS 








MOV (R5), 


R4 


BEQ 


70$ 


\ IF NO ERRORS, CONTINUE 




ERRHRD 


27,EMSG34,ERR2 










TRAP 


C$ERHRD 






.WORD 


27 






.WORD 


EMSG34 






.WORD 


ERR2 


MOV 


0-1, Rl 


j PUT ERROR INDICATOR INTO Rl 




BR 


80$ 






PRINTB 


0OK 


5 RESPONSE OK 








MOV 


0OK , - C SP ) 






MOV 


01.-CSP) 






MOV 


SP.RO 






TRAP 


C$PNTB 






ADD 


04, SP 



: DECREMENT 'COPIES' COUNTER 

5 IF MORE TO DO. LOOP 

} ELSE, UPDATE SUMMARY TABLE 

MOV SL0T.CR5)* 
MOV 01. (R5)* 
JSR R4.PREG14 
.WORD WRITES -ANCHOR 

I INCREMENT TO NEXT NODE TABLE ENTRt 



MOV 
RTS 



R1,(R5)» 

PC 



;ACTION ROUTINE TO SET 'RUN l.OOPPAIR' 



000033 



070656 

050316 
002412 



002312 


ACTRNL: 


MOV 
RTS 


tfCLUPPR.KEYWDl 
PC 




RUNLUP j 


CAIL 


CHECK 


002410 




CLR 
MOV 
CALL 


TEMPI 

ONODTOL.SLOT 
FULSLT 



FLAG 

l SET FLAG 



JSR R4.PREG14 

.WORD CHECK -ANCHOR 
l CI EAR 'HEADER PRINTED' FLAG 
j MOVE NODE TABLE ADDRESS TO SLOT 
: SEE IF TABLE EMPH 



G13 



CLI 
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SEQ 16* 


110720 


004437 


070656 










JSR R4.PREG14 


110724 


025556 












.WORD FULSLT - 


ANCHOR 


6729 110726 


022737 


177777 


002410 




CMP 


0-1, SLOT 


1 




6730 110734 


001014 








8NE 


9$ 


l IF NO, CONTINUE 




6731 110736 










PRINTF 


OTABEMT.ONOD 


i ELSE, PRINT "TABLE EMPTY" MESSAGE 


110736 


012746 


053415 










MOV 


ONOD.-(SP) 


110742 


012746 


053346 










MOV 


OTABEMT.-CSP) 


110746 


012746 


000002 










MOV 


02,-CSP) 


110752 


010600 












MOV 


SP.RO 


110754 


104417 












TRAP 


C$PNTF 


110756 


062706 


000006 










ADD 


06, SP 


6732 110762 


000137 


111776 






JMP 


30$ 






6733 110766 


012737 


002412 


002410 


9$: 


MOV 


ONODTBL.SLOT 


I MOVE NODE TABLE ADDRESS TO SLOT 


6734 110774 


013737 


002376 


050326 


10$: 


MOV 


P$CPT5,CPYCNT 


{ SET UP FOR NO, OF COPIES 




6735 111002 










CALL 


FULSLT 


j GET NEXT NODE IN TABLE 




111002 


004437 


070656 










JSR R4.PREG14 


111006 


025556 












.WORD FULSLT - 


ANCHOR 


6736 111010 


022737 


177777 


002410 




CMP 


l.SLOT 


j SEE IF AT END OF TABLE 




6737 111016 


001002 








BNE 


11$ 


{ IF YES. EXIT 




6738 111020 


000137 


111776 






JMP 


30$ 






6739 111024 


013701 


002410 




111: 


MOV 


SL0T.R1 


j MOVE SLOT TO Rl 




6740 111030 


126127 


000007 


000000 




CMPB 


7(R1),0CTARGT 


} SEE IF TARGET NODE 




6741 111036 


001422 








BEQ 


185 


I IF YES, BRANCH 




6742 111040 








17$: 


PRINTF 


0EMSG32 


S ELSE PRINT ERROR MESSAGE 




111040 


012746 


064245 










MOV 


0EMSG32. -CSP) 


111044 


012746 


000001 










MOV 


01, (SP) 


111050 


010600 












MOV 


SP.RO 


111052 


104417 












TRAP 


CiPNTF 


111054 


062706 


000004 










ADD 


04.SP 


6743 111060 










PRINTF 


OPASABT 






111060 


012746 


060672 










MOV 


OPASABT, -(SP> 


111064 


012746 


000001 










MOV 


01. -(SP) 


111070 


010600 












MOV 


SP.RO 


111072 


104417 












TRAP 


C$PNTF 


111074 


062706 


000004 










ADD 


04, SP 


6744 111100 


000137 


111776 






JMP 


30$ 


l EXIT 




6745 111104 


010102 






18$: 


MOV 


R1.R2 


l POINT Rl TO TARGET NOOE 




6746 111106 


062702 


000010 




1 12$: 


AOD 


010. R2 


j ANO R2 TO ASSIST NODE 




6747 111112 


021227 


000000 






CMP 


(RP),00 






6748 111116 


001773 








BEQ 


112$ 






6749 111120 


022712 


177777 






CMP 


0-1, (R2) 






6750 111124 


001002 








BNE 


110$ 






6751 111126 


000137 


111776 






JMP 


30$ 






6752 111132 


12622 7 


000007 


000001 


110$: 


CMPB 


7(R2),OCASIST 


? IS R2 POINTING TO AN ASSIST NODE? 


6753 111140 


001337 








BNE 


17$ 


; IF NOT, ERROR, ELSE CONTINUE 




6754 111142 








20$: 


CALL 


BLDAST R2,R1 


} BUILD TRANSMIT ASSIST MESSAGE 




111142 


010125 












MOV R1,CR5) 


♦ 


111144 


010225 












MOV R2.CR5) 


♦ 


111146 


0044 37 


070656 










JSR R4.PREG14 


111152 


006030 












.WORD BLDAST - 


ANCHOR 


6755 111154 










CALL 


XMIT 


I TRANSMIT MESSAGE 




111154 


0044 37 


070656 










J r M R4.PREG 


14 


111160 


002326 












.WORD XMIT ANCHOR 


6756 111162 










P$POP 


R4 


i GET RESULTS, R2 ■ SUCCESS -V A 1LURE 


111162 


014504 












MOV (M5),R4 


6757 111164 


001406 








BEQ 


22$ 


j I* OK, EXIT 




6758 UU66 








21$: 


ERRHRD 


26,EMSG*24 


i ELSE PRINT ERROR MESSAGE 
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111166 


104456 






1 1 1 1 70 


000032 






111172 


064103 






111174 


000000 




6759 


111176 


000137 


111712 


6760 


111202 








111202 


012725 


002324 




111206 


012725 


000006 




111212 


010125 






111214 


004437 


070656 




111220 


005150 




6761 


111222 








111222 


012725 


002346 




111226 


012725 


000006 




111232 


010225 






111234 


004437 


070656 




lllf.40 


C05150 




6762 


111242 








111242 


012746 


002346 




111246 


012746 


061747 




111252 


012746 


002324 




111256 


012746 


061757 




111202 


012746 


060770 




11126b 


012746 


000005 




111272 


010600 






111274 


104414 






111276 


062706 


000014 


6763 


111302 








111302 


004437 


070656 




111306 


021104 




6764 


111310 








111310 


014503 




676b 


111312 


001405 




6766 


111314 








111314 


104456 






111316 


000034 






111320 


064561 






111322 


070432 




6767 


111324 


000410 




6768 


111326 








111326 


012746 


061046 




111332 


012746 


000001 




111336 


010600 






111340 


104414 






111342 


062706 


000004 


6769 


111346 








111346 


010225 






111350 


010125 






111352 


004437 


070656 




111356 


006030 




6770 


111360 








111360 


004437 


070656 




111364 


002326 




6771 


111366 








111366 


01*1504 




6772 


111370 


001276 




6773 


111372 







22$} 



JMP 
CALL 



28$ 

BINHEX R1,06,0STRBUF 



TRAP 
.WORD 
.WORD 
.WORD 



SEQ 163 



C5ERHRD 
26 

EMSG24 




CALL 



BINHEX R2,06,tfSTRBUl 



I PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
JSR 
.WORD 



0STRBUr,(R5)* 
06,CR5)» 
R1,(R5)» 
R4.PREG14 
BINHEX -ANCHOR 



PRINTB 0YSTMS4 , 0ARGTY7 , GSTRBUF , GARGTY6 , tfSTRBUl 



MOV 0STRBU1.CR5)* 
MOV 06,(R5)» 
MOV R2.CR5)* 
JSR R4.PREG14 
.WORD BINHEX ANCHOR 
i ASSIST NODE - 
MOV 



CALL 



RUNCOM 



P$POP R3 



23$: 



BEQ 
ERRHRD 



BR 
PRINTB 



23$ 
28,EMSG40,ERR3 



101$ 
COKRE 



I DO RECIEVE LOOP 

JSK 
.WO ID 

l CHECK RESULTS 

MOV 

: IF OK. CONT. 



101$: CALL 



CALL 



P$POP 

BNE 

CALL 



BLDAST R1.R2 



XMIT 



R4 

21$ 

BINHEX Rl,tf6,tfSTRBUE 



{ BUILD RECEIVE ASSIST 

MOV 
MOV 
JSR 
.WORD 

I TRANSMIT MESSAGE 

JSR 
.WORD 

{ CHECK RESULTS 

MOV 

I IF OK CONTINUE, ELSE 

{ PRINT ERROR MESSAGE 



-CSP) 
-CSP) 



0STRBU1, -CSP) 

MOV 0ARGTY6. -CSP) 

MOV OSTRBUF, -CSP) 

MOV 0ARGTY7, 

MOV 0TSTMS4, 

MOV $5, -CSP) 

MOV SP.RO 

TRAP C$PNTB 

ADD 014, SP 

R4,PREG14 
RUNCOM -ANCHOR 

-CR5),R3 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
28 

EMSG40 
ERR3 



MOV 
MOV 
MOV 
TRAP 
ADD 
MESSAGE 
R2,CR5)* 
R1,CR5)# 
R4.PREG14 

BLDAST -ANCHOR 

R4,PREG14 

XMIT -ANCHOR 

-CR5),R4 
REPORT ERROR 



OOKRE, -CSP) 
01, -CSP J 
SP.RO 
C$PNTB 
44.SP 



"T- /I 
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SEQ 164 



6774 



6775 



6776 



6777 

6778 

6779 



6780 
6781 



6782 



6783 



6784 

6785 
6786 
6787 



111372 

111376 

111402 

111404 

111410 

111412 

111412 

111416 

111422 

111424 

111430 

111432 

111432 

111436 

111442 

111446 

111452 

111456 

111462 

111464 

111466 

111472 

111472 

111476 

111500 

111500 

111502 

111504 

111504 

111506 

111510 

111512 

111514 

111516 

111536 

111522 

111526 

111530 

111532 

111536 

111536 

111540 

111542 

111546 

111550 

111550 

111554 

111556 

111556 

111560 

111562 

111566 

111566 

111572 

111576 

111600 

111604 



012725 
012725 
010125 
004437 
005150 

012725 
012725 
010225 
004437 
005150 

012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
062706 

004437 
021104 

014503 
001405 

104456 
C00034 
064662 
070432 
000410 

012746 
012746 
010600 
104414 
062706 

010225 
010125 
004437 
005502 

004437 
002326 

014504 
001402 
000137 

012725 
012725 
010125 
004437 
005150 



002324 
000006 

070656 



002346 
000006 

070656 



002346 
061747 
002324 
061757 
060770 
000005 



000014 
070656 



061112 
000001 



000004 

070656 
070656 

111166 

002324 
000006 

070656 



CALL 



BINHEX R2,06,#STRBU1 



MOV V>STRBUF,(R5) + 

MOV 46.CR5)* 

MOV R1,(R5)+ 

js:< R4.PREG14 

.WORD BINHEX -ANCHOR 



PRINTB 0TSTMS4 , 0ARGTY7 , OSTRBUF » 0ARGTY6 . 0STRBU1 



MOV 
MOV 
MOV 
JSR 
.WORD 



CALL 



RUNCOM 



PSPOP R3 



25$: 



BEQ 
ERRHRD 



BR 
PRINTB 



25$ 
28.EMSG41.ERR3 



102 $ 
frOKTR 



I DO RECEIVE LOOP 

JSR 
.WORD 
RESULTS 

MOV 
OK, CONT, 



0STRBU1,(R5)* 
06. (R5)* 

R2.CR5)* 
R4,PREG14 
BINHEX -ANCHOR 
ASSIST NODE * 

MOV 0STRBU1.-CSP) 
MOV 4ARGTY6.-CSP) 
MOV OSTRBUF , -CSP) 
MOV 0ARGTY7, -CSP) 
MOV MSTMS4.-CSP) 
MOV 05. -(SP) 
MOV SP.RO 
TRAP C$PNTB 
ADD 014, SP 



GET 



R4.PREG14 
RUNCOM -ANCHOR 



IF 



-CR5),R3 



TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
28 

EMSG41 
ERR3 



102J 



CALL 



CALL 



P$POP 



BLDFAS R1.R2 



XMIT 



R4 



26$; 



BEQ 


26$ 


JMP 


21$ 


CALL 


BINHEX 



{ BUILD FULL ASSIST 

MOV 
MOV 
JSR 
.WORD 

} TRANSMIT MESSAGE 

JSR 
.WORD 

5 CHECK RESULTS 

MOV 

j IF OK CONTINUE* ELSE 



MOV 
MOV 
MOV 
TRAP 
ADD 
MESSAGE 

R2.CR5). 
R1.CR5)* 
R4.PREG14 
BLDFAS -ANCHOR 



OOKTR, -(SP) 
01,-CSP) 
SP.RO 
C$PNTB 
04, SP 



R1,«6,0STRBUF 



PRINT ERROR 



MESSAGE 
MOV 
MOV 
MOV 
JSR 
,WORD 



R4,PREG14 
XMIT -ANCHOR 

-CR5),R4 
REPORT ERROR 



0STRBUF,lR5)* 
06,CR5)* 
R1,(R5)» 
R4.PREG14 

BINHEX -ANCHOR 
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6788 



6789 



6790 



6791 

6 792 
6793 



6794 
6795 



6796 
6797 
6798 
6799 



6800 
6601 
6802 
6805 

6804 
6805 
6806 
6807 
6108 

6809 
6810 
6811 



111606 

111606 

111612 

111616 

111620 

111624 

111626 

111626 

111632 

111636 

111642 

111646 

111652 

111656 

111660 

111662 

111666 

111666 

111672 

111674 

111674 

111676 

111700 

111700 

111702 

111704 

111706 

111710 

111712 

111712 

111716 

111722 

111724 

111726 

111732 

111736 

111740 

111744 

111744 

111746 

111750 

111754 

111760 

Hi. 762 

111766 

111772 

111776 

111776 

112000 

112004 

112006 

112012 

112016 

112016 

112020 

112022 

112024 



012725 
012725 
010225 
004437 
005150 

012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
062706 

004437 
021104 

014503 
001405 

104456 
000034 
064764 
070432 
000410 

012746 
012746 
010600 
104414 
062706 
005337 
001402 
000137 

010225 
010125 
012725 
004437 
007176 
062702 
010237 
000137 

000207 
005737 
001120 
012704 
012714 

104422 
005714 
001517 



002346 
000006 

070656 



002346 
061747 
002324 
061757 
060770 
000005 



(■■H)014 

070656 



061157 
000001 



000004 
050326 

111142 



000002 
070656 

000010 
002410 
110774 



050274 

003762 
000012 



J13 
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CALL BINHEX R2,06,0STRBU1 i 



SEQ 165 



PRINTB 0TSTMS4 , 0ARGTY7 , #STRBUF , tfARGT Y6 , 0STRBU1 



MOV 0STRBU1.CR5)* 

MOV 06,CR5)* 

MOV R2,(R*0» 

JSR R4.PRF.G14 

.WORD BINHEX-ANCHOR 
i ASSIST NODE - 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



CALL 



RUNCOM 



P$POP R3 



28$; 



BEQ 
ERRHRD 



PRINTB 



28$ 

28.EMSG42.ERR3 



103* 
tfOKFU 



DO RECEIVE LOOP 

JSR 
.WORD 
CHECK RESULTS 

MOV 
IF NO ERRORS, CONT 



TRAP 
ADD 



0STRBU1, -CSP) 
4ARGTY6,~CSP) 
OSTRBUF.-CSP) 
4ARGTY7, -CSP) 
4TSTMS4. -CSP) 
05, -CSP) 
SP.RO 
C$PNTB 
#14, SP 



R4.PREG14 
RUNCOM -ANCHOR 

-CR5),R3 



103$ 



29$; 



DEC 
BEQ 
JMP 
CALL 



CPYCNT 

29$ 

20? 

WRITES #2,R1,R2 



TRAP 
.WORD 
.WORD 
.WORD 



MOV 
MOV 
MOV 
TRAP 
ADD 
DECREMENT 'COPIES' COUNTER 
IF MORE TO DO. LOOP 

ELSE .UPDATE SUMMARY TABLE 



CJERHRD 
28 

EMSG42 
EPR3 



OOKFU.-(SP) 
*1,-(SP) 

SP,RO 

C$PNTB 

44.SP 



MOV R2.CR5)* 

MOV R1,(R5)» 

MOV 02.CR5)* 

JSR R4.PREG14 

.WORD WRITES-ANCHOR 





ADD 


#10, R2 




MOV 


R2.SL0T 




JMP 


10$ 


30$: 


RETURN 




RUNCOM; 


TST 


RETRYS 




BNE 


30$ 




MOV 


*TIMERS»R4 




MOV 


010..CRO 


10$: 


BREAK 






TST 


(R4) 




BEQ 


40$ 




CALL 


RECEVE 



SEE 
IF 



IF FAILED 



RTS 
DUE 



TFS. BR, ELSE 



PC 
TO EXCESSIVE 

CONT, 



CULL1SI0NS 



j SET UP FOR 10 SECOND TIMOUT 



SEE IF TIME HAS 
IF >ES. BRANCH 
CHECK FOR ANSWER 



TRAP 
EXPIRED 



CSBRK 
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SEQ 166 



6812 

6813 

6814 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
6824 
6825 
6826 
6827 
6828 
6829 



6830 
6831 
6832 
6833 
6834 
6835 



6836 

6837 
6838 
6839 
6840 
6841 
6842 
684 3 
6844 
6845 
6846 
684 J 
6848 
6849 
6850 
6851 
6852 



112024 

112030 

112032 

112032 

112034 

112036 

112044 

112050 

112054 

112060 

112064 

112070 

112074 

112076 

112100 

112104 

112110 

112112 

112116 

112124 

112130 

112130 

112132 

112136 

112142 

112146 

112150 

112152 

112156 

112160 

112164 

112170 

112174 

112202 

112202 

112204 

112210 

112214 

112220 

112222 

112222 

112224 

112226 

112232 

112240 

112244 

112246 
112254 
112260 

112262 

112266 
112274 
112300 
112302 
112302 



004437 070656 
003044 



014501 
001770 
063737 
005237 
013703 
116301 
116302 
042701 
042702 
000302 
050201 
062701 
020137 
001423 
005237 
012737 
012702 



014503 
001426 
060337 
012737 
012702 
000417 

012737 
012702 
000411 

005237 
012737 
012702 
000412 

005002 



P$POP 



050324 050042 

050030 

024226 

000012 

000011 

177400 

000370 



000074 
050332 

050034 

061506 002314 

177777 



010146 

013746 050332 

012746 06^745 

012746 000003 

010600 

104415 

062706 OOOOIO 

000452 

016303 000004 

066303 000016 

062703 000030 

063737 002374 050040 

010325 

013725 050334 
013725 002374 
004437 070656 
007040 



050036 
061515 
177777 



061462 
177777 



050032 
061446 
177777 



20$: 



002314 



002314 30$ 



002314 



40$; 



50$; 



Rl 



BEQ 


10$ 


ADD 


XFER.S.XFER 


INC 


S.REC 


MOV 


RRGNXT.R3 


MOVB 


STAT2CR3),R1 


MOVB 


STAT1>1(R3),R2 


BIC 


4177400, Rl 


BIC 


0370, R2 


SWAB 


R2 


BIS 


R2.R1 


ADD 


460. ,R1 


CMP 


R1.BUR.EN 


BEQ 


20$ 


INC 


S.LEN 


MOV 


0i.ENGTH,KEYW02 


MOV 


•-1.R2 


PRINTX 


0LGERMS,BUFLEN,R1 



BR 


60$ 


MOV 


L0ADD(R3),R3 


ADD 


16(R3),R3 


ADD 


030, P3 


ADD 


P$SIZfc,S.BUE 


CALL 


DATCMP P$SI7E,CMPBUK,R3 



P$POP R3 

BEQ 50$ 

ADD R3.S.C0MP 

MOV #C0MPAR,KEYUD2 

MOV fl-1, R2 

BR 60$ 

MOV #RETRY,KEYWD2 

MOV 4-1.R2 

BR 60$ 

INC S.NREC 

MOV 0NORESP.KEYWD2 

MGV #-l,R2 

BR 65$ 

CLR R2 



JSR R4.PREG14 
.WORD RECEVE -ANCHOR 
I R2 HOLDS NO. OF BUFFERS RECEIVED 

MOV -CR5),R1 
IF NO BUFFERS RECEIVED, LOOP 
UPDATE BYTES TRANSFERED SUM. COUNTER 
UPDATE PACKETS RECEIVED SUM. COUNTER 
GET RECEIVE RING POINTER 



BITS 7 

BITS 8-10 

BITS 

BITS 

BYTE 
COUNT COMPLETE 

LOST WHILE COMPARING ADDRESSES 
ERROR 



GET RCV BYTE COUNT 
GET RCV BYTE COUNT 
CLEAR ALL UNWANTED 
CLEAR ALL UNWANTED 
PUT 8-10 INTO HIGH 
MAKE BYTE 
ADD BYTES 
CHECK FOR LENGTH 
IF OK, BR 

ELSE, UPDATE LENGTH ERRORS COUNTER 
MOVE 'LENGTH' TO ERROR INDICATOR 
INDICATE ERROR TO R2 
PRINT LENGTH ERROR MESSAGE 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
AND EXIT 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO DATA AFTER SKIP COUNT 
POINT R3 TO FIRST DATA BYTE 
UPDATE BYTES COMPARED SUMMARY 
CHECK FOR DATA COMPARE ERRORS 
MOV R3.CR5)* 
MOV CMPBUF.CR5)* 
MOV P$SIZE,CR5)* 
JSR R4.PREG14 
WORD DATCMP-ANCHOR 



Rl.-(SP) 

BUFLEN.-(SP) 

SLGERMS, -CSP) 

♦3,-CSP) 

SP.RO 

C$PNTX 

#10. SP 



COUNTER 



1 CHECK RESULTS 



-CR5),R3 



MOV 
BRANCH IF NO ERRORS 

UPDATE COMPARE ERRORS SUMMARY COUNTER 
MOVE 'COMPARE' TO ERROR INDICATOR 
INDICATE ERROR TO R2 



j MOVE 'EXCESSIVE COLLISIONS' TO ERROR INC1CAT0R 
; INDICATE ERROR IN R2 



j UPDATE MESSAGES NOT RECEIVED COUNTER 
j MOVE 'NO RESPONCE' TQ ERROR INDICATOR 
i INDICATE ERROR TO R2 
; LEAVE 



t INDICATE SUCCESS 



L13 
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6853 


112304 






6854 


112304 


013703 


024226 


6855 


112310 








112310 


012725 


024226 




112314 


012725 


000001 




112320 


004437 


070656 




112324 


006450 




6856 


112326 






6857 


112326 








112326 


010225 






112330 


000207 




6858 








6859 








6860 








6861 








6862 








6863 


112332 


012737 


000005 


6864 


112340 


000207 




6865 








6866 








6867 


112342 








112342 


013725 


002372 


6368 


112346 


005037 


002372 


6869 


112352 








112352 


004437 


070656 




112356 


017372 




6870 


112360 








112360 


014501 




6871 


112362 


001403 




6872 


112364 


022701 


000001 


6873 


112370 


001406 




6874 


112372 


005237 


002372 


68 75 


112376 


022737 


000005 


6876 


112404 


002362 




6877 


112406 








112406 


014537 


002372 


6878 


112412 








112412 


000207 




6879 








6880 








6881 








6682 








6883 








6884 


112414 


013701 


002372 


6885 


112420 


006301 




6886 


112422 


062701 


003324 


6887 


112426 








112426 


012746 


054 345 




112432 


012746 


000001 




112436 


010600 






112440 


104417 






112442 


062706 


000004 


6888 


112446 








112446 


013746 


0023/6 




112452 


013746 


002374 




112456 


011146 






112460 


01274b 


055002 
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60$ 



MOV RRGNXT,R3 

CALL GETRNX #1,#RRGNXT 



65$ 



SEQ 167 



i GET DESCRIPTOR 

\ UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTOR 

MOV #RRGNXT,CR5)> 

MOV #1,(R5)* 

JSR R4.PREG14 

.WORD GETRNX -ANCHOR 



RETURN R2 



i RETURN 



MOV 
RTS 



R2,(R5)* 
PC 



ACTION ROUTINE TO SET 'RUN PATTERN' FLAG 



002312 ACTPAT: MOV 

RTS 



4CPATRN.KEYWD1 
PC 



RUNPAT: P$PUSH P$TYPE 
10$: 



CLR 
CALL 



P$TYPE 
DIRCOM 



P$POP Rl 



002372 



20$: 



30$: 



BEQ 


20$ 


CMP 


01. Rl 


BEQ 


30$ 


INC 


P$TYPE 


CMP 


05,P$TYPE 


BGE 


10$ 


P$P0P 


P$TYPE 



RETURN 



{SET FLAG 



i SAVE TYPE PARAMETER 

MOV P*TYPE,CR5)* 
j SET TYPE TO FIRST TYPE 
5 SEND MESSAGES 

JSR R4.PREG14 

.WORD DIRCOM- ANCHOR 
; GET RESULTS TO KEEP STACK IN ORDER 

MOV -CR5),R1 
l IF OK, CONT 
{ ELSE, WAS TABLE EMPTY 
} IF YES, RETURN 
5 SET TO NEXT TYPE 
i SEE IF DONE ALL OF THEM 
5 IF NOT, DO MORE 
; RESTORE MESSAGE TYPE 

MOV ~(R5),P$TYPE 



RTS 



PC 



ACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 



ACTSMS: 



MOV 
ASL 

APO 
PIUNTF 



P$TYPE,R1 
Rl 

OMSGTAB.Rl 
OMSGPRM 



PRINTF 0MSG4,(R1),P$SIZE,P$CPYS 



iGET MESSAGE TYPE INTO Rl 




j MULTIPLY BY 2 




j ADD MESSAGE TABLE OFFSET 




{PRINT MESSAGE PARAMETER MES 


SAGE 


MOV 


OMSGPkM, -CSP) 


MOV 


01, CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


04, SP 


{PRINT PARAMETERS 




MOV 


PJCPlS, -<, SP"* 


MOV 


p$size. csp) 


MOV 


CRn. cspi 


MOV 


0MSG4 t -iSP) 



mi;- 
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SEQ 168 



6889 
6890 
6891 
6892 
689? 
6894 
6895 
6896 
6897 
6898 
6899 
6900 



6901 



112464 
112470 
112472 
112474 
112500 
112504 



6902 
6903 
6904 
6905 

6906 
690/ 
6908 
6S09 

6 G 10 
6911 



6912 
6913 
6914 
6915 
6916 
691 7 
6918 
6919 



6920 



112506 
112514 
112522 
112530 
112530 
112534 
112540 
112542 
112544 
112550 
112550 
112554 
1125&0 
112564 
112570 
112574 
112576 
112600 
112604 
112610 



112612 
112612 
112612 
112614 
112616 
112620 
112624 
112630 
112634 
112634 
112636 
112640 
112642 
112642 
112644 
112646 
112650 
112650 
112654 



012746 000004 

010600 

104417 

062706 000012 

105037 003220 

000207 



012737 
012737 
012737 

012746 
012746 
010600 
104417 
062706 

013746 
013746 
013746 
012746 
012746 
010600 
104417 
062706 
105037 
000207 



000012 
003220 



010325 
010225 
010125 

012701 050144 

012702 050044 
016103 000000 

112122 
005303 
001375 

014501 
014502 
014503 

012725 0025,4 
012725 00000b 



CLRB 
RTS 



P*NNUF 
PC 



MOV 
MOV 
TRAP 
ADD 



M.-(SP) 
SP.RO 
CSPNTF 
#12, SP 



ACTION ROUTINE TO CLEAR THE CURREN Y MESSAGE PARAMETERS AND 
RESET THEM TO THE DEFAULT VALUE 



000000 002372 
001000 002374 
OOOuOl 002376 

053432 
000001 



000004 

002376 
002374 
003324 
O55O02 
000004 



ACTCMS: 



MOV 4ALPHA,P$TYPE 

MOV £512.,P$SIZE 

MOV n.PtCPYS 

PRINTF tfCLRMSG 



PRINTF 0MSG4,MSGTAB 1 P$SIZE,P$CPYS 



CLRB 
RTS 



P$NNUF 
PC 



{RESET 


TYPE 




{RESET 


SIZE 




{RESET 


COPIES 




{PRINT 


MESSAGE PARAMETERS RESET 


MESSAGE 




MOV 


4CLRM5G, -(SP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


04, SP 


Y5 


{PRINT PARAMETERS 






MOV 


P$CPYS,~CSP) 




MOV 


PiSIZE, -CSP) 




MOV 


MSGTAB, -CSP) 




;10V 


0MSG4 , - ( SP ) 




MOV 


04,-CSP) 




MOV 


SP,RO 




TRAP 


CJPNTF 




ADD 


412.SP 


j CLEAR 


NOTNUF FLAG 





ACTION ROUTINE TO SET SHOW COUNTERS FLAG 



ACTCNTj 



10$: 



P$PUSH R1 ( R2,R3 



MOV 4CNTRS.R1 

MOV 0UCB12.R2 

MOV C.SIZCRD.R3 

MOVB (R1)»,(R2)* 

DEC R3 

BNE 10$ 

P$POP Rl.R2.R3 



CALL BINHEX OPHYADR , #6,4STRBUF 



} SAVE REGISTERS 

MOV R3.CR5)* 

MCV R2.CR5)* 

MOV R1.CR5)* 

! GET ADRESS OF COUNTERS 

j GET ADDRESS OF COUNTER BUFFER 

l GET SIZE OF BUFFER 

1 MOV COUNTERS TO BUFFER 
5 SUBTRACT ONE FROM THE COUNT 
5 BRANCH UNTIL ALL ARE DONE 
j RESTORE THE REGISTERS 
MOV -CR5),R1 
MOV (R5),R? 
MOV ~(R5),R3 
{GET ADDRESS INTO ASCII 

MOV 3STRBUF,(R5)t 
MOV <>6 ( CR5)* 



KraiKWi mm$\ 



AG MACRO M1200 



N13 
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112660 
112664 
112670 

6921 112672 
112672 
112676 
112702 
11T706 
112710 
112712 

6922 112716 
112716 
112 722 
112726 
112732 
112/34 
112736 

6923 112742 
112742 
112746 
112752 

6924 112754 
112754 
112760 
112764 
112770 
112772 
1127 74 

6925 113000 
113000 
113004 
M3010 

6926 113012 
113012 
113016 
113022 
113026 
113030 
113032 

6927 113036 
113036 
113042 
113046 
113052 
113054 
113056 

6928 113062 
113062 
113066 
113072 
113076 
113100 
113102 

6929 113106 
113106 
113112 
113116 



01*725 

004437 
005 150 

012746 
012746 
012706 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 



0044 37 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062 706 

012725 

0C4437 
007446 



004010 
070656 



002324 
06204 7 
000002 



000006 

050046 
062127 
000002 



CG000', 

050050 
07065b 



100526 
062176 
000002 



000006 

050054 
070656 



100526 
062232 
000002 



000006 

050060 
062277 
000002 



000006 

050062 
062354 
000002 



000006 

050064 
070656 



PRINTF 4CNTR00 , 0STRBUF 



PRINTF «CNTR01,UCB12*2 



CALL BINDEC tfUCB12*4 



PRINTF 0CNTRO2»tfDECSTR 



CALL BINDEC 0UCB12*10 



PRINTF 0CNTRO3 , ODECSTR 



PRINTF ACNTR04 , UCB12 ♦ 14 



PRINTF tfCNTROb , UCB12 ♦ 16 



CALL BINDEC 4UCB12*20 







SEQ 169 


MOV 


ttPHYADP 


,CR5)» 




JSR 


R4.PREG14 




.WORD 


BINHEX- 


ANCHCR 






MOV 


*>STf!3UF, 


CSP) 




MOV 


0CNTSOO,- 


(SP'j 




MOV 


02, -CSP) 






MOV 


SP.RO 






TRAP 


CSPNTF 






POD 


#6.5P 






MOV 


;CB12*2, 


CSP) 




MOV 


^CNfROl, - 


CSP) 




MOV 


02, -CSP) 






MOV 


5P.R0 


1 




TRAP 


C*PNTF 






ADD 


46 , SP 




MOV 


#UCB12< 


4,(R5)+ 


[ 


JSR 


R4.PREG14 




.WORD 


BINDEC- 


ANCHOR 






MOV 


dOECSTR.- 


CSP) 




MOV 


0CNTRO2,- 


•CSP) 




MOV 


02, -CSP) 






MOV 


SP.HO 






TRAP 


CJPNTF 






ADD 


06, SP 




MOV 


$UCB12< 


10.CR5)* 




JSR 


R4.PREG14 




.WORD 


BINDEC- 


ANCHOR 






MOV 


ODtCSTR, 


-CSP) 




MOV 


>*fNTR03. 


-CSP) 




MOV 


*»2, CSP) 


f 




MOV 


SP.RO 


t 




TRAP 


CSPNTF 






ADD 


06, SP 


! 




MOV 


UCB12* 1 4 


C SP ) j 




MOV 


CCNTP04, 


-CSP) 




MOV 


02, -CSP) 






MOV 


SP.RO 






TRAP 


CSPNTF 






ADO 


♦6 , SP 






MOV 


UCB12-16 


. (SP) 




MOV 


4CNTR05, 


-CSP) 




MOW 


02. CSP) 






MOV 


SP.RO 






TRAP 


CSPNTF 






AD^ 


06 . SP 




MOV 


3UCB12 


*J0,(RV • 




JSR 


R4.PRU 


il4 




.WORD 


SINOEC 


-ANCHOR 





CVNIAAO 


OF UNA NT EXERCI' 


5ER OIAC 


CLI ACTION TABLE AND ROUTINES 


6950 


113120 








113120 


012746 


100526 




113124 


012746 


062424 




113130 


012746 


000002 




113134 


010600 






113136 


104417 






113140 


062 706 


000006 


6931 


113144 








113144 


012725 


050070 




113150 


0044 3 7 


070656 




113154 


007446 




6932 


113156 








113156 


012746 


100526 




113162 


012746 


062463 




113166 


012746 


000002 




113172 


010600 






113174 


104417 






113176 


062706 


000006 


6933 


1 1 3202 








1 1 3202 


013746 


050074 




113206 


012746 


062533 




113212 


012746 


000002 




113216 


010600 






113220 


104417 






113222 


062706 


OO00O6 


6934 


113226 








113226 


013746 


050076 




113232 


012746 


062606 




113236 


012746 


000002 




113242 


010600 






113244 


104417 






113246 


062706 


000006 


693b 


113252 








113252 


012725 


050100 




113256 


004437 


070656 




113262 


007446 




6936 


113264 








1 1 3264 


012746 


100526 




113270 


012746 


06265 7 




113274 


012746 


000002 




113300 


010600 






113302 


104417 






113304 


062706 


000006 


6937 


113310 








113310 


012725 


050104 




113314 


004437 


070656 




113320 


007446 




6938 


113322 








113322 


012746 


100526 




113326 


012746 


06^/16 




115332 


012746 


000002 




113336 


010600 






113540 


104417 






115342 


062706 


oooooe 


6939 


113546 








113346 


012/25 


050110 




U33W 


004437 


70656 
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PRINTF OCNTROb.ODtCSTR 



CALL BINDEC 0UCB12»24 



PRINTf 0CNTR07,0DtCSTH 



PRINTS 0CNTRO6 , L'CB 12 • iiO 



PR INTF 0CNTR09 , UCB 12 • 32 



CALL BINDEC 0UCB12*34 



PRINTF 0CNTR10.O0ECSTR 



CALL HINDFC 0UCB12»40 



PRINTF OCNTRU.ODtCSTR 



CALL UXNUEC 0UCfcU2*44 







SEQ 170 




MOV 


4DECSTR, 


(SP) 




MOV 


OCNTR06, - 


CSP) 




MOV 


02, csp) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADD 


06, SP 




huv 


#UCB12< 


>24,(R5)* 




JSR 


R4.PREG14 




.WORD 


BINOEC- 


■ANCHOR 






MOV 


♦DECSTR, • 


CSP) 




MOV 


ACNTR07, - 


•CSP) 




MOV 


#2,-(SP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADD 


*6,SP 






MOV 


UCBt2>!0, 


, -(SP) 




MOV 


*CNTROS, • 


■CSP) 




MOV 


02 1 CSP 5 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADD 


06, SP 






MOV 


UCB^'52, 


, CSP) 




MOV 


*CNTR09 t 


(SP) 




MOV 


92. -( 5P) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADD 


*6,SP 




MOV 


♦UCB12. 


► 34,(R5)» 




JSR 


R4.PREG14 




.UORD 


BINDEC 


-ANCHOR 






MOV 


dOFCSTR, 


( >r j ) 




MOV 


OCNTR10, 


•CSP^ 




MOV 


*2. -CSP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADO 


•6.5P 




MOV 


♦UCB12 


♦ 40,tR5)» 




JSR 


R4.PREG14 




. WORD 


BINOtC 


• ANCHOR 






MOV 


*oecsTR, 


i \f) 




MOV 


CCNTHU, 


•vSP) 




MOV 


02 . ^ SP ) 






MOV 


SP.RO 






[RAP 


ClPN T » 






ADD 


tfh/.P 




MOV 


W'CBl.' 


-44.1R5)* 




JSR 


R4 t PRtuiA 





C14 



ElTim^m m R mm* G macro m ^°° 
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ShfJ 171 



113356 

6940 113360 

113360 
113364 
113370 
113374 
113376 
113400 

6941 113404 
113404 
113410 
113414 

6942 113416 
113416 
113422 
113426 
113432 
113434 
113436 

6943 113442 
113442 
113446 
113452 

6944 113454 
113454 
113460 
1 1 3464 
113470 
1134 72 
113474 

6945 113500 
113500 
113504 
113510 

6946 113512 
113512 
113516 
113522 
113526 
113530 
113532 

694/ 113536 
113536 
113542 
113546 

6946 113550 
113550 
113554 
1 1 3560 
115564 
1 1 3566 
113570 

6949 1135/4 
1135/4 
1 1 3600 
1 1 3*04 
U3bl0 



007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
10441? 
062706 

012725 
0044 37 
007446 

012746 
012746 
012746 
010600 
1044W 

062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

01 ,''725 

0044 37 
007446 

012746 
012746 
012746 
010600 
104417 
062 706 

013746 
012746 
01.' 746 
010600 



100526 

062/66 
000002 



000006 

050114 
070656 



100526 
063034 
000002 



000006 

050120 
070656 



100526 
063101 
000002 



000006 

050124 

070656 



100526 
063135 
000002 



000006 

050150 

070656 



100526 
063177 
000002 



000006 

050134 
06 3245 



PRINTF 0CNTR12,0UECSTR 



.WORD BINDEC -ANCHOR 



CALL BINDEC 0UCB12*50 



PRINTF 0CNTR13.ODECSTR 



MOV 
JSR 
.WORD 



CALL BINDEC 0UCB12*54 



PRINTF 0CNTR14 , ODECSTR 



MOV 
JSR 
.WORD 



CALL BINDEC OUCB12*60 



PRINTF 0CNTR15,0DfcCSTR 



MOV 
JSR 
.WORD 



CALL BINDEC 0UCBl?»b4 



PRINTF OCNTR 16, ODECSTR 



MUV 
JSR 
.WURU 



PRINTF «CNTRl/,UCUit!»70 



MOV •DEC'iTR, CSP; 

MOV 0CNTR12, -CSP) 

MOV 02, -COP) 

MOV SP.RO 

TRAP CIPNTF 

ADD 06, SP 

OUCB12*50,(R5)» 
R4,PRtG14 
BINDEC -ANCHOR 

MOV ODECSTR, C 5P ) 

MOV 0CNTR1T, -CSP) 

MC V < 02, CSP) 

MOV 5P,R0 

TRAP CJPNTF 

ADD 06, SP 

ODCB12»54.CR5)» 
R4.PREG14 
BINDEC -ANCHOR 

MOV ODECSTR, -CSP) 

MOV 0CNTR14, -CSP) 

MOV 02, -CSP) 

MOV SP.RO 

TRAP CIPNTF 

ADD 06, SP 

OUCB12»60,CR5)» 
R4.PREG14 

BINOEC -ANCHOR 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



ODECSTR, (SP) 

0CNTR15, -CSP) 
02 , C SP > 
SP.RO 
CJPNTF 
06. SP 



C SP ) 
^SP> 



OLK:B12»64,(R5>» 
R4.PRF.G14 

BINOEC -ANCHOR 

MOV ODECSTR. 

MOV OCNTWlh, 

mov es. tsp) 

MOV SP.RO 

TRAP CtPNI^ 

ADD .?*>.' ;p 



MOV UCH12'\\ v-P> 

MOV »>CNTR1 \ -oP) 

MOV 02 , v iP ) 

MOV iP t RO 



D'l 4 
E£H£Vi£MbW fe«6 R fiASV¥Ng5 AG MACRn m?0 ° M " MAR M 15tU? PAGt 5 *- a9 



5F.Q 172 



6950 



6951 



6^52 

6^53 

6954 
6955 
6956 
695? 
6958 
6959 
69*0 
6961 
6962 



6963 
6964 
6965 



11361? 
113614 
113620 
113620 
1 1 3624 
113630 
113654 
113636 
113640 
113644 
113644 
113650 
113654 
113660 
115662 
113664 
1 13670 
113674 



6966 



696/ 
6968 
6969 



6970 



69/1 
69 72 
6975 



1136/6 
113702 
113/10 
113 '10 
113714 

H3/!6 
113/24 
113726 
113726 
113732 
113/36 
113740 
113742 
113746 
113/46 
113/52 
113754 
113762 
1 1376*4 
113/64 
113V 70 
1157/4 
114000 
114004 
114006 
114006 
114012 
114014 
114022 
114024 
114024 
114050 
114034 



104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 
105037 
000207 



105037 
012737 

0044 3 7 
025556 
022737 
001437 

012746 
012746 
010600 
104417 
062706 

0044 37 
025556 

022 7 3'/ 
001432 

012725 
012725 
013/25 
0O443/ 
005150 

0044 3 7 
026040 
06273/ 
000 751 

012746 

012/46 
012746 



000006 

050136 
063520 
000002 



000006 

050140 
063365 
000002 



000006 
003220 



PRINTF 0CNTR18,UCB12f72 



PRINTF 0CNTR19.UCB12.74 



ClRB F$NNUF 

RTS PC 



;ACTI0N ROUTINE TO PRINT OUT THE NOOK TABU 

i 



TRAP CJPNTF 

ADD 06 , 5P 

MOV UCBl?»7i>, (5P) 

MOV 0CNTR18, -CSP) 

MOV 02, (SP) 

MOV SP.RO 

TRAP CiPNTF 

ADD 06. SP 

MOV UCB12.74. CSP) 

MOV 0CNTR19, -CSP) 

MOV 02, CSP) 

MOV SP.RO 

IRAP CiPNTF 

ADD 06, SP 



003220 

002412 002410 

070656 

177777 002410 



053176 
0OO001 



000004 
070656 
177777 002410 



002324 
000006 
002410 
070656 



070656 

000010 002410 



05 3415 
05 3 546 
000002 



ACTSNDs CLRB 

MOV 
CALL. 



CMP 
BfcO 
PRINTF' 



P$NN<* 

ONOC 3L.SL0T 

FU.St.T 



0-1. SLOT 

20$ 
ONTBHDR 



jMOVt NODE TABU ADDRESS INTO SLOT 

jSU IF TABU EMPTY 

JSR R4.PRf.G14 

.WORD FULSLT -ANCHOR 

|TF YES, OON' T PRINT HEADER 

{PRINT NODE TABLE HEADER 



10$ 



CALL 



CMP 
BE'U 

CALL 



FU.Sl.T 



1, SI OT 

50$ 

BINHEX SL(JT I 06 I 0STRUUK 



MOV 


ONTBHOR, -CSP) 


MOV 


•1, (SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


04 ,SP 



20$ 



CAl I 



MDO 

BR 

PRINTF- 



PPTNOD 



08. .SLOT 

10$ 
OTABtM.T,ONUU 



I KINO LOCATION IN TABLE WITH AN ADDRESS 

JSH R4.PREG14 

.UORD FULSLT -ANCHOR 

jCHFCK IF AT ENO OF TABLE 

i IF tt'S. RETURN 

I ELSE, PUT ASCII ADDRESS INTO BUFFER 

MOV 0STRBUE,(R5)» 

MOV 06.CRS)* 

MOV SL0T.(R5)» 

JSR R4.PREG14 

.UORD BINHEX -ANCHOR 

jPRINT NODE TABLE LNTRY 

JSR R4.PRFG14 

.WORD PRTNOD ANChQR 

jINCR. SLUT TO POINT TO NEXT TABLE ENTRl 

jCONTINUE UNTIL ALL ENTRIES PRINTED 



MOV 


ONOD, ^ sP ' 


MOV 


o ♦ ABF rtT, ■ v SP > 


MOV 


0„\ <W> 



E 1 4 



araiB^M \mmui™ mcm m *°° 
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SEQ 175 





U4040 


010600 






114042 


104417 






114044 


062706 


000006 


69/4 


114050 


000207 




6975 








69 ,V 








69/7 








69 /a 








6979 








6960 








6981 


114052 








- *4or? 


010225 




6982 


11*' 054 


013702 


003214 


6983 


114060 


006302 




6984 


114062 


006302 




6985 


114064 


006302 




6986 


114066 


062702 


00241c? 


6987 


114072 


005022 




6988 


114074 


005022 




6989 


11h076 


005022 




6990 


114100 


005012 




6991 


114102 








114102 


014502 




699? 


114104 


105037 


003220 


6993 


114U0 








114110 


013746 


003214 




114114 


012746 


054132 




1141 t ?0 


012746 


000002 




114124 


010600 






114126 


104417 






114130 


062706 


000006 


6994 


114134 


000207 




6995 








6996 








6997 








6998 








6999 


114136 








114136 


010325 






114140 


010225 




7000 


11414c? 


012702 


002412 


7001 


114146 


C1270? 


002536 


7002 


114152 








114152 


012 746 


0S4324 




114156 


012746 


054265 




114162 


012746 


000002 




114166 


010600 






114170 


1044 17 






1141 7^ 


062 706 


000006 


7005 


114176 


000137 


114260 


7004 








7005 








7006 








700/ 








7008 








\\;G9 


114202 


105037 


003220 


7010 


114,r06 








114206 


010325 





30$: 



t 



RTS 



PC 



MOV 

TRAP 

ADD 



{ACTION ROUTINE TO CLEAR 
j FROM THE NODE TABLE 

J 

ACTCNL: PIPUSH R2 



MOV 


PSNUM.R2 


ASL 


R2 


A5L 


R2 


ASL. 


R? 


ADD 


ON0DTBL.R2 


CLR 


(R2)» 


CLR 


(R2)* 


CLR 


(R2)* 


CLR 


(R2) 


P$P0P 


R2 


CLRB 


PiNNUF 


PRINTF 


0LOGDEL.PJNUM 



j RE TURN 



A NODE SPECIFIED BY NODE LOGICAL NAME 



]SAVE R2 

MOV R2.CR5)* 
jPUT NODE LOGICAL NUMBER INTO R2 



SP , RO 

C5PNTF 

06, SP 



RTS 



PC 



{ACTION ROUTINE TO SAVE NODE TABLE 
J 

ACTSAV: PIPUSH R2.R3 



MOV ONOOTBl ,R2 
MOV 0SAVTBL # R3 
PRINTF 0UN5MSG , OSAVKD 



JMP 



SAVCOM 



jACTlON ROUTINE TU UNSAvl NODE TABLE 



ACTUN'j: Cl RB PtNNUF 

PiPUSH R2.R3 



jMULTIPLf BY 8 




{NODE TABLE ADDRESS • 




l (LOG. NO. X 8) » ONODTBL 




jADD OFFSET 




{CLEAR ENTRY (8 BYTES) 




l RE STORE RP 




MOV -CRS), 


>R2 


j CLEAR NOTNUF f'L AG 




{PRINT MESSAGE INDICATING DELETION 


MOV 


PiNUM, (SP) 


MOV 


OLOGDEL..CSP) 


MOV 


*2, (SP) 


MOV 


SP.RO 


TRAP 


CJPNTF 


ADD 


tf6,SP 



{RETURN 



{SAVE R2 AND R3 




MOV R3.CR5) 


» 


MOV H2.1R5) 


* 


{SET REGISTERS FOR COPYING 




jR2 • FROM. H5 • TO 




{PRINT 'TABLE SAVED' MESSAGE 




MOV 


OSAVED, (SP> 


MOV 


^JNSMSG, -( SP) 


MOV 


#2, (SP) 


MOV 


SP , RO 


TRAP 


C*PNTF 


ADD 


tfb.SP 



iCUAR 'NOT ENOUGH* FLAG 
{SAVE R2 AND R3 

MOV R3,(.RSn 



sraiftw* imh®ui*« macro Mi?o ° 
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SEQ 174 





114210 


010225 




7011 


114212 


121427 


000057 


701.? 


114216 


001002 




7013 


114220 


000137 


114272 


7014 


114224 


012703 


002412 


7015 


114230 


012702 


002536 


7016 


114234 








114234 


012746 


054333 




114240 


012746 


054265 




114244 


012746 


000002 




114250 


010600 






114252 


104417 






114254 


062 706 


000006 


701 ; 


114260 


012701 


000050 


7018 


114264 


012223 




7019 


114266 


005301 




7020 


114270 


001375 




7021 


114272 








114272 


014502 






114274 


014503 




7022 


114276 


105037 


003220 


7023 


114302 


000207 




7024 








7025 








7026 








7027 








7023 








7029 


114304 


105037 


003220 


7030 


114310 








114310 


010225 




7031 


114312 


012701 


000132 


7032 


114316 


012^02 


002714 


7033 


114322 


005022 




7034 


114324 


005301 




7035 


114326 


001375 




7036 


114330 








114330 


012 746 


053422 




114354 


012746 


054220 




114340 


012746 


000002 




114344 


010600 






114346 


104417 






114350 


062 706 


000006 


7037 


114354 








114354 


014502 




7038 


114356 


000207 




7039 








7040 








7041 








7042 








7043 








7044 


114360 






7045 


1143o0 


12142 7 


000040 


7046 


114364 


001002 




704 7 


114366 


005204 




7048 


114370 


000/7! 




7049 


1143 72 


121427 


000000 


7050 


114376 


001007 





10$ i 



CMPU 

BNt 

JMP 

MOV 

MOV 

PRINTF 



(R4),057 

lOi 

QUIT 

ON0DTBL.R3 

0SAVTBL.R2 

OUNSMSG.ORfcSTOR 



MOV 



R2.CR5)* 



SAVCOM: MOV 

10$: MOV 

DEC 

BNE 

QUIT! P$POP 



CLRB 
RTS 



OTBLlEN.Rl 

(R2)*,(R3)* 

Rl 

10$ 
R2.R3 



P$NNUf 
PC 



ACTION ROUTINE TO CLEAR SUMMARY TABLE 



ACTCSU: CLRB 

Pi PUSH 



10$ : 



MOV 
MOV 
Cl.R 
DEC 
BNE 
PRINTE 



P$NNUf 
R2 

OSTBLEN.Ri 

0SrATBL.R2 

CR2)* 

Rl 

10$ 

OTABCLR.flSUMM 



P$POP R2 



RT 1 



PC 



{SET REGISTERS FOR COPYING 

}R2 « FROM, R3 • TO 

jPRINT 'TABLE RESTORED' MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

{MOVE TABLE LENGTH TO Rl 

{MOVE WORD 

{DECREMENT COUNTER 

;IF MORE, LOOP 

j ELSE, RESTORE COUNTERS 

MOV O-S 



ORES TOR, CSP) 

OUNSMSG.-(SP) 
02, -CSP) 
SP.RO 
C$PNTK 
06, SP 



CLEAR 'NOT 



MOV 
ENOUGH 1 



FLAG 



R '' 
(R5),R3 



{CLEAR 'NOT ENOUGH' COUNTER 




{SAVE R2 




MOV R2.CR5)* 


{MOVE TABLE LENGTH TO Rl 




{MOVE SUMMARY TABLE ADDRESS TO R2 


{CLEAR FIRST WORD 




;SEE IF FINISHED 




; IF NO, DO MORE 




1 ELSE, PRINT 'TABLE CLEARED' 


MESSAGE 


MOV 


OSUMM, -CSP) 


MOV 


T 4BCi..R, C cp "> 


MOV 


<\\ C : ;P) 


MOV 


SP.RO 


TRAP 


CJPNTK 


ADD 


06, SP 


{ AND RESTORE R2 




MOV -CR5) 


R2 



{ACTION 
• 


ROUTINE 


TO CHECK 


FOR 


PASS 


DEFAULT VALUE 


ACTDFTj 












10$: 


CMPB 


(R4),040 






iSFE i> SPACES 




BNE 


20$ 






i IF NO, CONT, 




INC 


R4 






{ FL.St , POINT 10 NFxr 




BR 


10$ 






I AND CHECK AGAIN 


20$: 


CMPB 


( R4 ) t {>Q 






jSM IF OFF AULT VALUE 




BNE 


30$ 






{ IF NO. UR 



CHAR 



G'>4 
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7051 

7052 
705? 
7054 
7055 
7056 
7057 

7059 

7059 

7060 
7061 
7062 

7063 
7064 



7065 
7066 



706 7 
7068 

7069 
70 70 
70/1 
70 72 
7073 



70 74 
7075 



7076 



114400 
114406 
114414 
114416 
114424 



7077 



114426 
114426 
114426 
114430 
114432 
114432 
114436 
114440 
114440 
114442 
114442 
114446 
114452 
114456 
114460 
114462 
114466 
114466 
114470 
114470 
114474 
114476 
114502 
114504 
114510 
114512 
114512 
114516 
114522 
114524 
114526 
114532 
114534 
114534 
114540 
114544 
114550 
114552 
114554 
114560 
114560 
114564 
114570 
1145/4 
114600 
114^02 
114602 



012763 
012737 
000403 
012763 
000207 



010225 

005002 

013700 

104434 

103413 

015746 
012746 
012746 
010600 
104417 
062706 

104435 

004437 
024520 
005737 
001064 
005737 
001411 

012746 
012746 
010600 
104417 
062706 
000^50 

012746 
012746 
012746 
010600 
104417 
062706 

012/25 
012725 
012/25 

0044 3/ 
004600 

014501 



000030 
000001 



002370 



002370 
116072 
000002 



000006 

070656 
116066 
1160/0 



116205 
000001 



000004 



115542 

116154 
000002 



000006 

000006 
002316 
115542 
070656 



000002 
003214 



000004 000002 



30$: 
40$; 



MOV 

MOV 

BR 

MOV 

RT5 



030.2CR3) 

V>1,P$NUM 
40$ 

04,2(R3) 
PC 



SEQ 175 



j IF YES, POINT R3 TO SKIP CHECK PASS COUNT 

I SET DEFAULT TO 1 

{RETURN 

, POINT R3 TO CHECK FOR PASS COUNT 



{ACTION ROUTINE TO READ A FILE FROM EXTERNAL MEDIA ONTO THE NODE TABLE 
S 

ACTUSF; 

PJPUSH R2 



10* 



20$ 



CLR 
OPEN 



CBOADR 



BCOMPLETE 10$ 
PRINTF OOPNERR , CBOADR 



CLOSE 

CALL 



TST 
BNE 
T ST 
BEQ 
PRINTF 



RDLIN 



BAD 
40$ 
EOFF 

20* 

OtOFFNP 



I SAVE R2 






MOV 


R2,(R C 


>>• 


, INITIALIZE R2 TO NODE 


TYPE M 


rARGET' 


iOPEN FILE, NAME-ASCIZ 


STRING 






MOV 


CBOADR, RO 




TRAP 


C$OPEN 


I RETURN IF SUCCESSFUL 








BCS 


10$ 


; ELSE PRINT "OPEN ERROR" 






MOV 


CBOADR, (SP) 




MOV 


OOPNERR, •(SP'> 




MOV 


02. (SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06, SP 


} CLOSE FILL 








TRAP 


C*CLOS 


{READ A LINE AT A TIME 






JSR 


R4.PREG14 


.UORD 


RDLIN 


-ANCHOR 



jSEE IF AN ERROR DURING READ 
j BR ON ERROR TO LEAVE 
(SEE IV EOF BEFORE PROCESS 
j IF VALID, PROCESS 
t ELSE SAY 'END OF 



BR 40$ 

PRINTF OPLINE.OFILLIN 



FILE' AND LEAVE. 

MOV OF.OFFNl),-(SP) 

MOV Jl, (SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 04 , SP 



CALL 



EDPACK Of'ILLlN.OAQRBUF.Ob 



P$POP Rl 



{PRINT LINE READ FROM 


FILE 






MOV 


OFILLlN. ISP) 




MOV 


OPL.INF , -ISP) 




MOV 


02 , ( SP ) 




MOV 


SP.RO 




TRAP 


CtPNTK 




ADD 


06 , SP 


6 {PUT ADDRESS '. 


INTO HINAR' 


i 


MOV 


06, (R5) 


» 


MOV 


OADRBUf 


. (R 1 ' '• 


MOV 


OFILLIN. 


,IRS)» 


JsR 


R4.PREG14 


.WORD 


EDPACK / 


ANCHOR 


{CHECK RESULTS 






MOV 


-CR5\R1 
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7078 
7079 



7O60 
7081 
7032 
70S? 
7084 



7085 

7086 
7087 

7088 
7089 



7O90 



114604 
114606 
114606 
114612 
114616 
114620 
114622 
114626 
114630 
114634 
114636 
114642 
114642 
114646 
114650 
114650 
114652 
114654 
114654 
114656 
114662 
114662 
1-.4666 
114672 
114676 
114700 
114702 
114 706 
114706 



001411 

012746 
012746 
010600 
104417 
062 706 
000412 
110237 
105102 
142702 

004437 
025410 

014501 
000706 

014502 
105037 

012746 
012 746 

J 2746 
010600 

104417 
062706 

000207 



053022 
000001 



000004 
002406 
000376 
070656 



003220 

054S33 
054265 
000002 



000006 



HI 4 
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BEQ 30$ 

PRINTF OCADERR 



30$ 



BR 


40$ 


Movn 


R2.N0DTY 


COMB 


R2 


BTCB 


0376, R2 


CALL 


ENTRND 



40$ 



UR 
P$P0P 



SEQ 176 



OCADERR, -CSP) 
01, CSP) 

SP.RO 
C$PNTF 
04 , SP 



PJPOP Rl 



10$ 
R2 



CLRB PSNNUF" 

PRINTF OUNSMSG.ORESTOR 



RETURN 



* IF OK, BR 

; ELSE PRINT ERROR MESSAGE 

MOV 

MOV 

MOV 

TRAP 

ADD 

; AND EX^T 

j SET UP NODE TYPE 

tSUITCH TYPE FOR NEXT TIME 



{ENTER IN NODE TABLE 

J5R R4,PREG14 

.WORD ENTRND-ANCHUR 
;GET RESULTS 

MOV -(R5),R1 

; READ MORE ADDRESS 
{RESTORE R2 

MOV -CR5).R2 

jCIEAR 'NOT ENOUGH' FLAG 
{PRINT ' TALBE RESTORED* MESSAGE 

MOV ORE S TOR, - CSP) 

MOV OUNSMSC-CSP) 

MOV 02, (SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 06, SP 



RTS 



PC 



1.14 
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SEQ 177 



7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 
7143 

7144 
7145 
7146 
7147 



114710 
114710 
114714 
114714 
114 720 
114724 
1M724 
114724 
114726 
114732 
114734 
114736 
114742 
114 746 



005237 003202 



.SBTTL RESPONDER TEST 



FUNCTIONAL DESCRIPTION: 

THIS TEST FORWARDS LOOP -SERVER FORWARD REQUEST PACKETS, 
AND TRANSMITS A CONSOLE ID EVERY 8 TO 9 MINUTES. 



i CALLING SEQUENCE 

NONE 
INPUT 

NONE 
IMPLICIT INPUT 

NONE 
OUTPUT 

NONE 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 

NONE 
SIDE F.FFF.CTS 

NONE 
REGISTERS USED 

NONE 
DEBUG 

NONE 



013701 
062701 



104422 
020137 
002016 
005001 
012703 
012704 
012314 



OC3750 
000010 



003/50 



004032 
047674 



ACTRSP: 
10$: 

20$: 



INC 

MOV 
ADD 

BREAK 

CMP 
BGE 
CLR 
MOV 
MOV 
MOV 



RSPFLG 

TIMMIN.R1 
08. ,R1 



Rl.TIMMIN 

30$ 

Rl 

0MCSTAD.R3 

0lDTDAT t R4 

(R3)»,CR4) 



{ INDICATE WE ARE IN LISTEN MODE 

5 GET CURRENT NUHBER OF MINUTES 
j AND ADD 9 MINUTES TO IT 

I ALLOW OPERATOR TO RETAKE CONTROL 

TRAP C*BRK 

l HAS NINE MINUTES GONE BY? 

j BRANCH IF NOT 

I INDICATE THAT TIME HAS GUNE B> 

t CONSOLE ID MULTICAST ADDRESS 

j ADDRESS OF CONSOLE ID MESSAGE 

{ SET MULTICAST ADDRESS 



/I 



J 14 
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7148 
7149 
7150 
7151 
7152 
7153 



7154 

7155 
7156 
7157 
7156 
7159 
7160 
7161 



7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 



7174 
7W5 

7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
7184 
7185 
7186 
718 7 
7188 
7189 
7190 
7191 
7192 
7193 



114750 

114754 

114760 

114764 

114770 

114770 

114770 

114774 

114776 

114776 

115000 

115002 

115006 

115014 

115016 

115024 

115026 

115026 

115030 

115032 

115034 

115036 

115040 

115040 

115044 

115050 

115054 

115056 

115060 

115064 

115066 

115072 

115074 

115074 

115076 

115100 

115102 

115104 

115106 

115106 

115110 

115112 

115114 

115120 

115122 

115124 

U5126 

115130 

115134 

115140 

115144 

115150 

115154 

115156 

115162 

115164 

11516b 



012364 
012364 
013702 
000137 



000002 
000004 
024220 
115260 



070656 



000004 
000014 
050306 



000016 
000002 



004437 
003044 

014502 
001751 
013702 
032762 
001411 
032762 
001405 

104456 
0000/2 
066211 
000000 
000555 

016203 
016304 
023704 
001060 
C10304 
062704 
062404 
022 724 
001405 

104456 
0000 73 
066267 
000000 
000532 

012423 

012423 

012423 

012 704 004010 

012423 

012423 

01242 7 

00572.5 

062713 

016203 

042703 

116204 

042 704 

050403 

062703 

006203 

00540? 

013704 



000010 
000010 
1745 7 7 
000012 
177400 

000074 



024220 



30$ 



024226 

040000 000010 

OlOOOO 000010 



40$ 



50$: 



MOV 
MOV 
MOV 
JMP 

CALL 



BR 



BR 



CR3)»,2(R4) 

(R3)*,4(R4) 

XRGCUR.R2 

75$ 

RECEVE 



P$POP R2 



BEQ 


20$ 


MOV 


RRGNXT.R2 


BIT 


0MRERRS.STATKR2) 


BEQ 


40$ 


BIT 


0MDISC,STAT1(R2) 


BEQ 


40$ 


ERRHRD 


58.EMSG58 



110$ 



MOV 


L0ADD(R2).R3 


MOV 


PR0T0T(R3),R4 


CMP 


PR0T00.R4 


BNE 


70$ 


MUV 


R3.R4 


ADD 


0LDSKIP.R4 


ADD 


(R4)* ,R4 


CMP 


0FORWRD.CR4)* 


BEQ 


50$ 


ERRHRD 


59,EMSG59 



110$ 



MUV 


(R4).,(R3)* 


MOV 


(R4)».(R3)» 


MOV 


CR4)*,(R3>* 


MOV 


0PHYADR.R4 


MO; 


( R4 )* , ( R 3 ) ♦ 


MOV 


(R4). ,(R3)* 


MOV 


(R4)*,CR3)» 


TST 


(R3)* 


ADD 


01O.CR3) 


MO" 


STATU R2),RS 


BIL 


0174377, R3 


MOVH 


SrAT2(R2),R4 


BIC 


0177400, R4 


BIS 


R4.R3 


MUD 


060. ,R3 


ASR 


R3 


NK. 


R5 


MUV 


XRCiCUR»R4 



SEQ 178 



I AGAIN 

l AND LAST TWO BYTES 

j GET CURRENT XMIT DESCRIPTOR 

l GO XMIT THE CONSOLE ID 

j SEE IF THERE IS A SUFFER 

JSR R4,PREG14 
.WORD RECEVE -ANCHOR 

i GET COUNT OF VALID RECEIVES 

MOV -CR5),R2 

{ BRANCH IF NONE 

I ELSE, GET ADDRESS OF DESCRIPTOR 

l ARE ANY ERRORS INDICATED 

I BRANCH IK NOT 

j ELSE, ARE THEY VALID? 

; BRANCH If NOT 

; ELSE, REPORT ERROR 



TRAP 


C$ERHRD 


.WORD 


58 


.WORD 


EMSG58 


.WORD 






I 00 IT ALL AGAIN 

GET THE DATA BUFFER ADDRESS 

GET PROTOCOL TYPE CODE 

LOOP SERVER MESSAGE? 

BRANCH IF NOT 

POINT TO BEGINNING Oy BUFFER 

BUMP THE POINTER 

POINT TO FUNCTION CODE 

IS THIS A FORWARD MESSAGE? 

BRANCH IF YtS 

ELSE, REPORT UNINVITED REPLY 

TRAP 
.WORD 
.WORD 
.WORD 

DO IT ALL AGAIN 



RCVU 
CJERHRD 
59 

EMSG59 




f ILL IN NEW DESTINATION ADDRESS 

AND AGAIN 

ANO AGAIN 

POINT TO OUK PHYSICAL ADDRESS 



FILL IN SOURCE 
ANO AGAIN 
AND AGAIN 
POINT PAST 
UPDATE THE 
GET STATUS 
CLEAR ALL- 



ADDRESS 



T>PE CODE 
SKIP COUNT 
WORD 2 
BUT RCVO BITE 



TO NEXT UiNC CODE 
CNT BITS 8 10 



GET RCVO BYTE CNT / 

KILL ALL UNWANTED BITS 

COMBINE THE TWO > OR TOTAi. Bl TE COUNT 

ADD MISSING Bi TtS 

CONVERT TO A WORD COUNT 

MAKfc IT TWO'S COMPLEMENT 

GET CURRENT XMIT DESCRIPTOR 
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R 



7194 


115172 


010364 


000006 


7195 


115176 


016404 


000004 


7196 


115202 


016202 


000004 


7197 


115206 






7198 


115206 


012224 




7199 


115210 


005203 




7200 


115212 


001375 




7201 


115214 


000434 




7202 


115216 






7203 


115216 


022763 


000005 000020 


7204 


115224 


001062 




7205 


115226 


012704 


047674 


7206 


115232 


016364 


000006 000000 


720 7 


115240 


016364 


000010 000002 


7208 


115246 


016364 


000012 000004 


7209 


115254 


013702 


024220 


7210 


115260 






7211 


115260 


013703 


047770 


7212 


115264 


006203 




7213 


115266 


005403 




7214 








7215 


115270 


010362 


000006 


7216 


115274 


016202 


000004 


7217 


115300 






7218 


1153C0 


012422 




7219 


115302 


005203 




7220 


115304 


001375 




7221 


115306 






7222 


115306 








115306 


012725 


000001 




115312 


004437 


070656 




115316 


002326 




7223 


115320 








115320 


014502 




7224 


11532? 


001404 




7225 


115324 








115324 


104456 






115326 


000076 






115330 


066451 






115332 


000000 




7226 


115334 






7227 


115334 








115334 


012725 


024224 




115340 


012725 


000001 




115344 


004437 


070656 




115350 


006534 




7228 


115352 


005701 




7229 


115354 


001006 




7230 


115356 


013701 


003750 


7231 


115362 


062701 


000010 


7232 


115366 


000137 


114724 


72^3 


115372 






7234 


1153 72 








1153/2 


012 725 


024226 




1153/6 


012 725 


000001 




115402 


00443/ 


07065b 




115406 


006450 





70$ j 



75$i 



80$; 



90$: 



MOV 
MOV 
MOV 

MOV 
INC 
BNE 
3R 

CMP 
BNE 

MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
ASR 
NRG 

MOV 
MOV 

MOV 
INC 
DNE 

CALL 



BEQ 
ERRHRD 



100$ 



CALL 



110$ 



CALL 



R3.WRDCNKR4) 

L0ADD(R4),R4 

L0ADD(R2),R2 

(R2)*,(R4)* 

R3 

60$ 

90$ 



SEQ 179 



i PUT IT INTO THE XMIT DESCRIPTOR 
j POINT TO THE XMIT DATA BUFFER 
j GET THE RECEIVE DATA BUFFER 

l START FILLING IN THE DATA BUFFER 

, BUMP UORDCOUNT 

1 DO IT UNTIL THE PACKET HAS BEEN .OPIED 

I GO XMIT THE PACKET 



4IDFUNC.RIFUNCCR3) t 
110$ t 

0IDTDAT.R4 j 

S0URCC(R3)jDESTIN(RO j 
S0URCC*2(R3) f DESTIN*2(R4) 
S0URCC*4(R3),0ESTINf4(R4^ 



XRGCUR.R2 

IDTSIZ.R3 

R3 
R3 

R3»WR0CNTCR2) 
L0ADD(R2),R2 

R3 

80$ 



XMIT 



GXMTUAT 



P$POP R2 



100$ 
62.EMSG62 



GETXNX 01 t tfXRUNXT 



TST 


Rl 


BNE 


110$ 


MOV 


T1MM.IN.R1 


ADO 


08. ,R1 


JMP 


20$ 



GETRNX tfl,V>RRUNXT 



IS THIS A REQUEST ID CONSOLE T PE? 

IF NOT. THROW IT OUT 

POINT TO ID TRANSMIT DATA 

FILL IN DESTINATION OF ID MESSAGE 

; FILL IN DESTINATION OF ID MESSAGE 

; FILL IN DESTINATION OF ID MESSAGE 



j GET XMIT DESCRIPTOR 

! SET SIZE OF XMISSION 
j CHANGE TO WORD COUNT 
j TWOS COMPLEMENT IT 

j SET XFER SIZE 

j GET XMIT DATA BUFFER ADDRESS 

i PUT ID DATA INTO XMIT DATA BUFFER 

; BUMP COUNT 

i DO UNTIL CUMPLETE 



j TRANSMIT THE PACKET 




MOV 


4XNTDAT,(R5)f 


JSR 


R4.PREU1* 


.WORD 


XMIT -ANCHOR 


j GET STATUS 




MOV 


-(R5),R2 


! BRANCH IF OKAY 






TRAP CSFRHRD 




. WORD 62 




.WORD EMSG62 




.WORD 


j UPDATE XMIT RING POINTERS 


MOV 


0XRGNXT.CR5)* 


MOV 


*1,(R5)« 


JSW 


R4.PREG14 


.WORD 


GETXNX ANCHOR 


; WAS TRANSMISSION A 9 


MINUTE SYS 10? 


; BRANCH IF NOT. RECEIVE POINTER NEEDS UPDATING 


j ELSE GET MINUTES SINCE START 


i AND ADD NINE MINUTES 


TO IT 


j NOTHING RECEIVED CAU' 


3ED XMIT, DON'T UPDATE RC 


j UPDATE RECEIVE RING 1 


POINTERS 


MOV 


ORRGNXT .iR^n 


MOV 


41.CR5 1* 


JSR 


R4.PRF.G14 


.WORD 


GETRNX -ANCHOR 



PNT 



L 14 

DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 13; 12 PAGE 
RESPONDEI 

7235 115410 000137 114724 JMP 20$ } 00 IT ALL AGAIN 
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ER TEST 
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M14 
PAGE 54 



SEQ 181 



7238 








7239 








7240 








7241 








7242 








7243 








7^44 








7245 








7246 








7247 








7248 








7249 








7250 








7251 








7252 








7253 








7254 








7255 








7256 








7257 








7258 








7259 








7260 








7261 








7262 








7263 








7264 


115414 


012702 


115542 


7265 


115420 


005037 


116066 


7266 


115424 


005037 


116070 


7267 


115430 








115430 


104426 






115432 


110012 




7268 


115434 








115434 


103414 




7269 


115436 








115436 


012746 


116126 




115442 


012746 


000001 




115446 


010600 






115450 


104417 






115452 


062706 


000004 


7270 


115456 


012737 


177777 


7271 


115464 


000416 




7272 








7273 


115466 


122712 


000015 


7274 


1154 72 


001756 




72/5 


115474 


122712 


000012 


7276 


115500 


001410 




7277 


115502 


122712 


000040 


7278 








7279 


115506 


101002 




7280 


115510 


005202 




7281 


115512 


000746 




7282 








7283 


115514 


012737 


177777 


7284 








7285 


115522 


105012 




7286 


115524 







,SBTTL READ LINE OF OPENED FILE 

THIS ROUTINE GETS BYTES FROM AN OPENED FILE UNTIL A CR IS ENCOUNTERED 
"EOF" AND "BAD" FLAGS ARE SET IF END-OF-FILE OR ERRORS ARE ENCOUNTERED 

NOTE: ASSUMING A ASCII TEXT FILE IS BEING READ, FOR EXAMPLE: 
AA 00-03-00-01-AB<CR><LF> 

AA-00-03-00-01-AB<CR><LF> 

WHAT YOU SEE READ BYTE-BY-BYTE IS: 

"A. . -AB<CR><LF>A. . -AB<CR><LF>. . <0><0><0> ??? 

SO I MADE ASSUMPTION THAT SINCE SEE "O-PADDING" AFTER LAS T CHAR TO 
END-OF-FILEBLOCK, ANY CHARACTER THAT IS NOT "SPACE OR GREATER" OR A 
<CR> OR <LF> THEN I'LL TAKE THAT AS END-OF-FILEC TEXT ). SET EOF-FLAG 
AND LEAVE. 



RDLIN 



10$ 



20$ 



116066 



116070 



INPUTS: 
OUTPUTS 



FILLIN 



BAD 
EOFF 

FILLIN 



BUFFER TO HOLD LINE OF BYTES READ FROM OPENFD FILE 
(CR NOT INCLUDED, O-BYTE TERMINATED) 

IF NON-ZERO, ERROR IN READING m BYTE FROM FILE 
IF NON-ZERO, END OF FILE WAS ENCOUNTERED 
ASCIZ STRING THAT WAS READ AS CHAR-CR-LF STRING 
CCR-LF REMOVED) 



MOV 
CLR 
CLR 
GETD^T 



#FILLIN,R2 

BAD 

EOFF 

(R2) 



BCOMPLETE 
PRINTF #RDERR 



30$ 





MOV 
BR 


f-l.BAD 
50$ 


30$: 


CMPR 

BEQ 

CMPB 

BEQ 

CMPB 


«15,(R2) 

10$ 

#12, (R2) 
50$ 
#40,CR2) 




BHI 
INC 
BR 


40$ 

R2 

10$ 


40$? 


MOV 


# I, EOFF 


50$: 


CLRH 
RETURN 


CR2) 



{POINT R2 TO A LINE BUFFER 
{CLEAR FLAGS 

{GO GET A BYTE FROM INPUT FILE 

TRAP 
MOVB 

;BR IF READ-BYTE SUCESSFUL 

BCS 

5 ELSE PRINT "READ -ERROR" 

MOV 

MOV 

MOV 

TRAP 

ADD 

j SET BAD-TRY FLAG AND LEAVE 



C$GETB 
R0,(R2) 

30$ 

#RDERR, (SP) 
#1, -CSP) 

SP.RO 
C$PNTF 
#4 , SP 



IS THE CHARACTER A <CR> 

BR IF YES CGO BACK TO GET <LF>) 
IS THE CHARACTER A <LF> 

BR IF YES (TERMINATE AND LEAVE) 
IS IT A "EOF" (END-OF-FILE(TEXT)) 

(EOF -ANY NON-CHAR>37 EXCEPT CR.LF) 

BR IF YES 

IF NO, LEAVE CHAR IN BUFFER 

AND GO GET MORE CHARS 

IF YES, TERMINATE INPUT BU r F 
AND SET iIOF-FLAG 



Nl^ 
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SEQ 182 



7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 



7295 



7296 



7297 



7298 
7299 
7 300 
7301 
7 302 
7303 
7304 
7 305 
7 306 
730/ 
7308 



115524 000207 

115526 

115542 

115746 

116066 000000 

116070 000000 

116072 045 116 045 

116075 101 077 125 

116100 116 101 102 

116103 114 105 040 

116106 124 117 040 

116111 117 120 105 

11611A 116 040 042 

116117 045 124 045 

116122 101 042 077 

116125 000 

116V26 045 116 045 

116131 101 077 106 

116134 111 114 105 

116137 040 122 105 

116142 101 104 040 

116145 105 122 122 

116150 117 122 077 

116153 000 

116154 045 1.16 045 
116157 101 106 111 
116162 114 105 040 
116165 114 111 116 
116170 105 040 127 
116173 101 123 072 
116176 045 116 045 
116201 124 045 116 

116204 000 

116205 045 116 045 
116210 101 105 116 
116213 104 055 117 
116216 106 055 106 
116221 111 114 105 
116224 040 106 117 
116227 125 116 104 
116232 054 040 106 
116235 111 114 105 
116240 040 122 105 
116243 101 104 000 



RTS 



PC 



FILENM 

FILLIN 

MATCH: 

BAD: 

EOFF; 



BLKB 
BLKB 

BLKB 
WORD 
WORD 



12. 
132 

80, 







5 BUFFER FOR FILE NAME 

? BUFFER FOR SINGLE LINE READ FROM FILE 
BUFFER FOR WORD TO MATCH FROM FILE 
ERROR/NOT -FOUND FLAG WORD 
END-OF-FILE FLAG (<>0 =■ EOF) 



OPNtRR: .ASCIZ /*N*A TUNABLE TO OPEN »*T*A"?/ 



RDERR 



ASCIZ /*N*A?FILE READ ERROR?/ 



PLINE 



ASCIZ /*N*AFILE LINE WAS:*N*TtfN/ 



EOFFND: .ASCIZ /*N*AEND~OF -FILE FOUND, FILE READ/ 



SELMSG 



OPERATOR SELECTED MESSAGE STORAGE 



THIS ROUTINE WILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSt.BK, 



INPUTS - 

EXPLICIT OUTPUTS - 
IMPLICIT OUTPUTS - 



PI ADDRESS OF OPERATUR SELECTED MESSAGE IN 

INPUT STRING 
NONE 
THE BUFFER AT OPSLBF WILL CONTAIN THE ASCII 



B 1 !■) 



CVNIAAO Of UNA NI EXERCISER DIAG MACRO 
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7309 

7310 
7511 
7312 
7313 
7314 
7315 
731t 
731? 
7318 
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SUBORDINATE ROUTINES 
CALLING PROCEEDURE - 
REGISTER USAGE - 



SF.Q 183 



OPERATOR SELECTED 

A NULL CHARACTER 

NONE 

CALL SELMSG PI t INPUT 

Rl CONTAINS ADDRESS OF 

R2 CONTAINS ADDRESS OF 



INPUT SIRING FOLLOWED BY 



ADDRESS OF ASCII STRING 
INPUT STRING 
OUTPUT STRING 



7319 
7 3 JO 
7321 
7322 
7323 
7324 
7325i 
7326 
7327 
7328 

7329 

7 330 
7 551 
■\532 
7 333 
7334 
7 33*5 
.'336 

M3: 

7 5 58 
7 3 59 
'540 
7 54 1 
7 542 
7 54 5 
7544 
7 545 
7346 
7 34 7 



7348 

7 349 
7 350 

7351 
7 352 
7353 
7 554 

7 555 
7 556 
7 55/ 
7 55« 



116246 
116246 
116250 
116254 
116256 
116260 
116262 
116264 
116266 
116272 
1162/6 
116302 
116302 



116304 
116504 
116310 
116312 
116312 
116514 
116316 
116316 
116322 
116324 
116330 
116534 
116340 
116342 
116 544 
116346 
116 350 



014501 

012702 003632 

005003 

1C5711 

001404 

112122 

005203 

000157 

112712 
010537 



SELMSG; P$POP Rl 



lOJj 



I PUT ADDRESS OF OPR, 



116255 

000000 
O0335o 



20$ j 



00020 7 



0044 5 7 0/0656 
025466 



014501 
00140^ 

012725 
000416 
012/05 
013/01 

012/02 
112221 
00530 5 
0015/ r 

005201 

mm 



\nii? 

000006 
0024 IQ 
002516 



002406 



N0\ 


00PSLBF.R2 


CLR 


R3 


TSTB 


(Rl) 


BEQ 


20$ 


M0V5 


(R1)*,(R2). 


INC 


R3 


JMP 


10$ 


MOVB 


00, (R2) 


MOV 


R3.MSG6C 


RETURN 





SEL ASCII STRING INTO 
MOV -CR5),R1 
!PUT ADDRESS OF OUTPUT BUFFER INTO R2 
iCLEAR CHARACTER COUNTER 

FOR END OF STRING 

20$ IF END 

MOVE BYTE TO OUTPUT BUFFER 

NLWBER OF CHARACTERS IN INPUT BUFFER 

MORE CHARACTERS 
iPUT ZERO AT END OF OUTPUT BUFFER 
I STORE NUMBER OF CHARACTERS FOR USE 



Rl 



iCHECK 
iGO TO 
iEl.SE. 

\ COUNT 
j GO DO 



IN BUF. BUILDING 



RT 



PC 



ENTRNO ENTER NODE IN TABLE 

THIS ROUTINE ENTERS A NODE INTO THE NODE TABLE 



INPUTS 

EXPLICIT OUTPUTS 

IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEEDURE 



NONE 

PI ZERO IF SUCCESSFUL, 1 IF TABLE FULL 

THE ADDRESS CONTAINED IN ADRBUF WILL BE 

ADDED TO 1H£ NODE TABLE IN THE. FIRST 

AVAIIABIE SLOT WITH THE NODE TyPE CONTAINED 

IN NODT> (TARGET CR ASSIST) 

EINOSt FIND EMPTY SI OT IN TAB! E 

CAl I ENTRND 

PI POP PI i OUTPUT GOOD/RAD RESUl T 



tNTRNDj CALt F INDSt 



PlPOP 



Ml 



R4.PREG14 

K I NO SI ANCHOR 

(«5),R1 





hfu 


10$ 




P $ MO* H 


I 




BH 


50$ 


10$: 


HOV 


06 , M 5 




M()V 


•»l T . H 1 




HOV 


OAORBU* ,«2 


20$; 


MOVB 


(R.M»,(R1 )» 




DFC 


R5 




HNI 


20$ 




INC 


Rl 




MUVU 


NUDTT.CK1) 



I FIND MVAU.AHL! SUIT IN TARLF. 

JSR 

.WORD 
1 CHECK U TABIE FUt 

MOV 

I IF NOT FW.l BR TO 10$ 
|MSE ^V\ fU. I INDICATION ON STACK 

MOV l,kR5>» 

I RE TURN 

I SET INCR, COUNTER TO 6 (BlTcS*) 
jMOV ADDRESS OF AVAILABLE SLOT JO Rl 
»MOV ADDRESS OF" NODE ADDRESS TO R2 
» MOV Bi TE OF ADDRESS 
(DtCR. COUNTER 

j CONTINUE UNTIl 6 BiTES TRANSMRtO 
I'ift POINTER TO NODF. T t Pi. LOCATION 
I MOVE NODE U91 INTO T/ULE 



CI 



I 
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SEQ 184 



7360 



Shi 



7362 
7565 
7364 
7 365 
73b* 
756 7 
73hH 
7 369 

7370 
7371 
7372 

7 3- '3 
73?4 

73/5 

73 76 
7377 
7378 

7379 

7V*o 

7.VU 
7382 
7 38 3 
7384 



116354 

116354 
116360 
116360 



7585 

7 386 

738 7 
7388 

738* 

7 3*0 
7 391 
7 39? 
7 39 3 
7 394 
7 395 
7 39* 
7 59/ 
7 398 
7399 
7400 
7401 
74 02 
740 3 
74 04 
740^ 



11636c 3 
116366 
11637? 
116374 
116400 
116404 
116406 
116406 
11641? 
116416 
116422 
116424 
116426 
116432 
1164 32 
1164 36 
116440 
116444 
116444 
1 16450 
116450 



012725 
000207 



012702 
022712 
001422 
062702 
022712 
001370 

012746 
012/46 
012/46 
010600 
10441/ 
062/06 

012/25 

000404 
010237 

012725 

000207 



000000 



PlPUSH 00 
30*: RETURN 

FINDSl 



002412 
000000 

000010 
177777 



053415 
0532 74 
000002 



000006 
17//// 
002410 
000000 



20 1 1 



30« : 



EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEDURE 



FINOSLi 


MOV 


ONODTBL.R? 


10$: 


CMP 


40. (R2) 




BE.Q 


20* 




ADO 


08. ,R2 




CMP 


o-l. CR?) 




BNE 


101 



PRINTF OTABFUL.ONOO 



PI PUSH ! 

BR 30> 

MOV n2.SL.u1 

PI PUSH 00 
RETURN 



FU !U T 



I PUT ADDRESS ADDED INDICATION ON STACK 

MOV 00. (R5)* 
jRETURN 

RTS PC 



FIND EMPTY SLOT IN NODE TABLE 

NONE 

NONE 

THE. ADDRESS OF THE FIRST AVAILABLE SLUT IN THE 

NODE TABLE WILL BE LOCATED IN SLOT, THE 

PARAMETER STACK WIl L CONTAIN -1 IF THE NUDE 

TABLE IS FULL AND IF AN EMPTY SLOT WAS FOUND 

NONE 

CALL FINDSl. 

PJPOP PI i-l IF FULL/ IF SLOT AVAILABLE 



jMOVC ADDRESS 0? NODE TABLE TO R2 

t SEE l r SLOT EMPTY 

j IF YES, BR 201 

lEI.SE NOVE POINTER TO NEXT ENTRY IOC 

I SEE IF AT ENO OF TABLE 

j IF NOT, CONTINUE LOOKING 

I ELSE. PRINT TABLE FULL MESSA 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 
|PUT TABLE FULL INDICATION ON 



ONOD. -CSP) 



OTABFUL, -CSP) 
02. (SP) 
SP.RO 
CIPNTF 

06, SP 
STACK 



MOV 0-1. CR5). 
IRFTURN 

jMOvF ADDRFSS OF FMPTy I OC . INTO Si OT 
jPUT LOC, POUND INDICATION ON STACK 

MOV 00,lR5)» 
iRETURN 

RTS PC 



THIS ROUT INI- UNDb A LOCATION IN 
ADDRESS EXISTS, IT IS USED WHEN 



FIVE SLOT ROUTINE 

THE TABLE WHERE A NODE PHYSICAL 
PRINTING OUT THE NODE TABLE. 



INPUTS 

EXPLICIT 

IMPLICIT 



OUTPUTS 
OUTPUTS 



SUBORDINATE ROUT LNES 
CALLING PROCEDURE 



NONt 
NONE 

THE LOCATION SLOT UIL L CONTAIN THE PHiMCAi 
ADDRESS Of A NODE TABLE ENTRl . SLOT Will 
CONTAIN 1 WHEN POINTING TO THE END \JF THE 
NODI TABU- 
NONE 
CALL FULSLT 



[)l r 
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SFQ 185 



7406 










I » 








740 7 


















7408 


116452 


013701 


002410 




rULSLTj 


MOV 


SL0T.R1 


ihOVE SLOT LOCATION TO Rl 


7409 


116456 


022711 


000000 




105 s 


CMP 


oo.crd 


;CHECK IF EMPTY 


7410 


116462 


001412 








BEQ 


30$ 


l If YES, BR 30$ 


7411 


116464 


022711 


177777 






CMP 


M,(R1) 


j SEE IF END OF NODE TABLE 


7412 


1164 70 


001403 








BEQ 


20$ 


l ir YES. BR 20$ 


7413 


1164 72 


010137 


002410 






MOV 


Rl.SLOT 


lELSE PUT EMPTY LOC . ADDRESS INTO SLOT 


7414 


1164 76 


00040 7 








BR 


40$ 


jRETURN 


74 IS 


116500 


012737 


177777 


002410 


20$: 


MOV 


O-1.5L0T 


|PUT 1 INTO SLOT TO SHOW END OF TABLE 


7416 


116506 


000403 








BR 


40$ 


j RE TURN 


74 i; 


116510 


062701 


000010 




30$: 


ADD 


08, ,R1 


jINCR. POINTER TO NEXT LOCATION 


7418 


116514 


000 760 








BR 


10$ 


I CHECK NEXT LOC. 


741^ 


116516 
116516 


000207 






40$; 


RETURN 




jRETURN 

RTS PC 


7420 










; aaa^aaaaaaattysaaa&^as^^ 


7421 










iaaasaaaaaaaasaaaasaQassiasaarasaaaaaaaaaaaaaaassaaasiasaaaaaaaaaaaaaaaaaaaaaaaaaa 


7422 


116520 








CHECK i 








7423 


116520 


010146 








MOV 


Rl» -(SP) 




7424 


116522 


010346 








MOV 


R3, -(SP) 




7425 


116524 


010446 








MOV 


R4, -(SP) 




7426 
7427 

7428 


116526 


010546 








MOV 


R5, -CSP) 




116530 


005005 








CLR 


R5 




7429 


116532 


012701 


177776 






MOV 


2. .Rt 




7430 


116536 








3$: 








7431 


116536 


062701 


000002 






ADD 


02. ,R1 




7452 


116542 


022761 


000000 


002412 




CMP 


00. .NODTBL(Rl) 




74 33 


116550 


001772 








BEQ 


3$ 




74 34 


















74 35 


116552 


062701 


000006 






ADD 


06. ,R1 




7436 


116556 


022761 


000000 


002412 




CMP 


OO.NOOTBL(Rl) 




74 3 7 


116564 


001401 








BEQ 


5$ 




74 38 


116566 


000413 








BR 


71 




74 39 


116570 








5$: 








7440 


116570 


016104 


002412 






MOV 


N0DT8L(R1\«4 




7441 


116574 


022761 


000400 


002412 




CMP 


O4OO,N0DTBL(Rl ) 




7442 


116602 


001013 








BNE 


10$ 




7443 


















7444 


116604 


062 705 


000001 






ADO 


01.R5 




7445 


116610 


022 705 


000002 






CMP 


02, R5 




7446 


116614 


001007 








BNfc 


12$ 




744 7 


116616 








/$: 








7448 


116616 


005061 


002412 






CLR 


NOOTBl (Ml ) 




7449 


116622 
116622 
116624 
116626 
116630 


104457 
000105 
0*7204 
000000 








ERRSOFT 


69.EMSG69 


i REPORT IT 

TRAP C1EHS0* 
. WORD b9 
.WORD EMSU69 
. WORD 


7450 


116632 








10$: 








7451 


116632 


005005 








CLR 


R5 




7452 


116634 








12»: 








745 3 


116634 


062 701 


000002 






ADD 


02 . . M 1 




7454 


116640 


022 761 


177777 


002412 




CMP 


i, NOOTBl (Ml 1 




7455 


116646 


001407 








BEQ 


t X I 1 1 




7456 


116650 


022 761 


cooooo 


002412 




CMP 


00. .NOOTBLCRn 




7457 


116656 


001766 








BEQ 


12$ 
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u 



SEQ 186 



7458 








7459 


116660 


062 701 


000006 


7460 


116664 


000741 




7461 


116666 






746? 


116666 


012605 




746? 


116670 


01?604 




7464 


11667? 


01?603 




7465 


116674 


012601 




7466 


1166 76 








116676 


0002C7 




7467 








7468 








7469 








74 70 








74 71 








74 7? 








74 73 








74 74 








74 75 








74 76 








7477 








74 73 








74 79 








74R0 








74 81 








748? 








7483 


116700 








116 700 


01450? 






11670? 


014503 




7484 


116 704 


0?2223 




7485 


116 706 


001006 




7486 


116710 


022223 




7487 


11671? 


001004 




7488 


116714 


021213 




7489 


116716 


001002 




7490 


116720 


005001 




7491 


1167?? 


00040? 




749? 


116724 


012701 


177777 


7493 


116730 








116 730 


010125 






11673? 


000207 




7494 








7495 








7496 








749 7 








7498 








7499 








7500 








7501 








750? 








750 3 








7504 


116 734 








116734 


012746 


0023?4 




116740 


012 746 


055144 




116/44 


012 74*' 


000002 




116 750 


01C600 






116/52 


104417 





EXITIi 



ADD 
BR 

MOV 
MOV 
MOV 
MOV 
RETURN 



<tb. ,R1 
5$ 

CSP)*,R5 
(SP)*,R4 
(SP)>,R3 
CSP)*,R1 



RTS PC 

{aaaQsosaaQaaaaaasaaaaaaaaaaaaaaaQasjasQaasaaaaaaaa^ 

{ CMPAOR COMPARE TWO ADDRESSES 

{ 
J 



THIS ROUTINE COMPARES TWO SIX SYi'E STRINGS 

INPUTS 

OUTPUTS 



PI 
P2 
P3 



ADDRESS OF FIRST STRING 

AODRESS OF SECOND STRING 

« COMPARISON/ 1 - NO COMPARISON 



CALLING PROCEDURE 



CMPADR; P$POP R2.R3 





CMP 


(R3)*,(R3)» 




BNE 


10$ 




CMP 


(R2)» t *,'R3)» 




BNE 


10$ 




CMP 


(R2),(R3) 




BNE 


10$ 




ClR 


Rl 




BR 


20$ 


10$: 


MOV 


1,R1 


20$: 


RETURN 


Rl 



CALL CMPADR P1.P2 

P$P0P P3 



jPUT ADDRESS OF STRING TO BE COMPARED IN R? AND R3 

MOV -(R5),R2 

MOV -CR5) # R3 

iDO FIRST TWO BYTES COMPARE 

i IF NO, EXIT 

I DO SECOND TWO BYTES COMPARE 

j IF NO, EXIT 

iDO LAST TWO BYTES COMPARE 

j It- NO, tXl! 

{PUT COMPARISON OK INDICATOR IN Rl 



{PUT NO COMPARISON INDICATOR IN Rl 



MOV 
RTS 



H1.CR5)* 
PC 



; PRTNOD 

I INPUTS 

j EXPLICIT OUTPUTS 

5 IMPLICIT OUTPUTS 

j SUBORDINATE ROUTINES 

j CALL ING SEQUENCE 

PRTNOD: PRINTF ONODADR , 0STRHUF 



PRINT NODE TAiLE 



NONE 

NONE 

ONE ENTRY IN THE NUDE TABLE WILL BE PRINTED 

NONE 

CALL PRTNOD 

jPRINT NODE ADDRESS 



MOV 


SSTRBU* , ^ SP? 


MOV 


tf NOD ADR, KSP) 


MOV 


o: t (>-.p) 


NOV 


SP.HO 


TRAP 


C$PNTh 
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i 3U3 

7506 

7507 
7509 
7509 
7510 



7511 
7512 
7515 
7514 
7515 
7516 
7517 
7518 
7519 



7520 
7521 



7522 
7524 
7525 
7526 
752? 
7526 
7529 
7550 
7551 
'532 
7534 
7535 
7536 
7537 



7538 
7540 
7541 
7542 



116754 
116760 
116764 

116770 
116772 
116774 
116776 
116776 
117000 
117004 
117010 
117012 
117014 
117020 
117024 
117030 
117032 
117036 
117040 
1 1 7046 
117050 
117056 
117056 
117062 
117066 
1170 72 
117074 
117076 
117102 
117102 
117104 
117104 
117106 



117110 
117110 
117110 



062706 
013702 
162702 
006202 
006202 
006202 

010246 
012746 
012746 
010600 
104417 
062/06 
013702 
062702 
111203 
020327 
001404 
012737 
000403 
012737 

013/46 
012746 
012746 
010600 

104417 
062706 

000207 

104432 
000002 



104401 



000006 
002410 
002412 



MOV 
SUB 
ASR 
ASR 
ASR 
PRINTF 



SL0T.R2 

0N0DTBL.R2 

R2 

R2 

R2 

0L0GNAM.R2 



053154 
000002 



000006 
002410 
000007 

000001 

061757 002314 

061747 002314 

002314 
05316/ 
000002 

000006 



10$: 
20$; 



MOV 

ADD 

MOVB 

CMP 

BEQ 

MOV 

BR 

MOV 

PRINTF 



5L0T.R2 

07, R2 

(R2),R3 

R3.0CASIST 

10$ 

0ARGTY7.KEYWD2 

20$ 

0ARGTY6.KE1UD2 

0NODTYP.KEYWD2 



RETURN 
EXIT TiST 



SEQ 167 



ADD 
t MOVE SLOT ADDRESS INTC R2 
j CALCULATE NODE LOGICAL NAME 
jUSING: LOG, NO. * 

i(SLOT-#NODTAB)/B 



06, SP 



\ PRINT LOGICAL NAME 



MOV 



R2. CSP) 





MOV 


OLOGNAM. 


•CSP) 




MOV 


*2. -CSP) 






MOV 


SP.RO 






TRAP 


CJPNTF 






ADO 


06.SP 




SEE IF TARGET OR ASSIST NODE 






INFO CONTAINED IN 


7TH BYTE OF 


ENTRf 




MOVE INTO R3 








SEE IF ASSIST NODE 








IF YES, BR 10$ 








ELSE MOVE ' TARGET' 


T^'TO KFYWD2 




CONTINUE 








MOVE 'ASSIST' INTO 


KF.YUD2 






PRINT NODE TYPE 









{RETURN 



RTS 



MOV KEYU02. -CSP) 

MOV 4N0DTYP, -CSP) 

MOV C2, CSP) 

MOV SP.RO 

TRAP CJPNTF 

ADD 06. SP 

PC 

TRAP C$EXIT 

.WORD L 100 15-. 



; INSERT LOCAL STORAGE THAT IS USED ONLY 

{ DURING THIS TEST. 

; INSERT MESSAGES THAT ARE USED ONLY 

j DURING THIS TEST. 

.EVEN 



ENDTST 



L 10015: 



TRAP 



C$ETST 



BEGIN THE REMAINING HSfS ON NEW PAGES. 



Gl u 



D 



CVNLAAO DEUNA Nl EXERCISER DIAG MACRO M1200 
READ LINK OF OPENED FILE 



22 -MAR -M 13: It? PAGE 55 



SEQ 188 



7545 










7546 










754 7 










7548 










754<* 










7550 










7551 










Trr ■> 










i J.V. 










755? 










7554 










755 r - 










7556 










7557 


11 nw. 
11711.? 
117114 


000015 






7558 










75c 










7561 










756c' 










756? 










7564 










7565 










7566 










7568 










7569 


117114 

117114 
117116 
117120 

ii7ipa 


000031 
117146 
160000 
177776 






7570 


117124 
117124 
117126 
117130 

11/132 


001031 
117201 
000000 
000776 






7571 


117134 
117134 
117156 
117140 
117142 
117144 


002032 
117235 
000340 
000000 
000007 






75 72 










7573 


117146 
117146 








■'V/4 










75 76 










75 / / 










7578 










7579 










7581 










7582 


117146 


12/ 


110 


101 




117151 


124 


040 


111 




11/154 


123 


040 


124 




11/157 


110 


105 


040 




11/162 


120 


103 


123 




117165 


122 


11/ 


040 




117170 


101 


104 


104 



.SBTTL HARDWARE PARAMETER CODING SECTION 



i *♦ 



THE HARDWARE PARAMETER CODING SECTIGN CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES, THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



BGNHRD 



LJHARD 



.WORD L100l6-L$HARD/2 



INSERT HARDUARE PARAMETER INTERPRETIVE CODE HERE. THIS CODE 
IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR Ft)K' 
DEVICE INFORMATION TO PUT IN THE P- TABLE. THIS CODE IS USED 
IN CONJUNCTION UITH THE DEFAULT P- TABLE TEMPLATE. THE MACROS 
USED IN THIS SECTION ARE "GPRMD", "GPRMA" AND "GPRML". 



GPRMA ASKCSR,0,0, 160000, 177776, YES 



GPRMA ASKVEC,2,0,0,7 76,YES 



GPRMD ASKPRI ,4,0,340,0, 7.YES 



GET CSR ADDRESS 

.WORD TiCODE 
.WORD ASKCSR 
.WORD TILOLIM 
.WORD T*HILIM 

GET VECTOR ADDRESS 



GET 



.WORD 


T$CODE 


.WORD 


ASKVEC 


.WORD 


TILOLIM 


.WORD 


TiHlLlM 


PRIORITY 


LEVEL 


.WORD 


TJCODE 


.WORD 


ASKPRI 


.WORD 


340 


.WORD 


TU.OLIM 


.WORD 


T$HILIM 



ENDHRD 



.EVEN 



I 10016 



; INSERT MESSAGES THAT ARE USED ONLY 

} DURING THE HARDWARE PARAMETER CODING SECTION. 

ASKCSR; .A^CI^ 'WHAT IS THE PCSRQ ADDRESS?/ 



1-1 1. 5 
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SEQ 189 





117173 


122 


105 


123 




117176 


123 


07? 


000 


7583 


117201 


127 


110 


101 




117204 


124 


040 


111 




117207 


123 


040 


124 




117212 


110 


105 


040 




117215 


126 


105 


10? 




117220 


124 


117 


122 




117223 


040 


101 


104 




117226 


104 


122 


105 




117231 


123 


123 


077 




117234 


000 






7584 


117235 


127 


110 


101 




117240 


124 


040 


111 




117243 


123 


040 


124 




117246 


110 


105 


040 




117251 


120 


122 


111 




117254 


117 


122 


HI 




117257 


124 


131 


040 




117262 


114 


105 


126 




117265 


105 


114 


077 




117270 


000 






7585 










7586 











ASKVEC: .ASCI/ /WHAT IS THE VECTOR ADDRESS?/ 



ASKPRIj .ASCI/ /WHAT IS THE PRIORITY LEVEL-/ 



.EVEN 



I i I 



II" 



D 
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SEQ 190 



7568 
7589 
7590 
7591 
7592 
759? 
75 Q 4 
7595 
7596 
7597 
7598 
7599 



7600 
7602 
7605 
7604 
7605 
7606 
7607 
7609 
7610 
7611 
761? 



7615 
7614 
7616 
7617 
7618 
7619 
7621 
7622 
7623 
7624 
7626 
762/ 
7628 
7629 
76 51 
7632 



117272 
117272 
117274 



000000 



117274 
117274 



1172 74 
117274 



117306 



.SBTTL. SOFTWARE PARAMETER CODING SECTION 



THE SOFTWARE PARAMETER CGDING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



BGNSFT 



L$SOFT 



.WORD L100l7-L$S0FT/2 



; INSERT SOFTWARE PARAMETER INTERPRETIVE CODING HERE. THIS CODE 

; IS USED BY THE SUPERVISOR iJ INTERROGATE THE OPERATOR FOR 

; SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOFTWARE 

j TABLE. THIS SECTION IS OPTIONAL. 



.EVEN 
ENDSFT 



L10017: 



.EVEN 



; INSERT MESSAGES THAT ARE USED ONLY 

i DURING THE SOFTWARE PARAMETER CODING SECTION. 



$PATCH:j 



.BLKW 



j; N.M. (CHANGED FROM 100 TO 5) 



j THIS IS A PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS. 
ADJUST THE SIZE TO FIT YOUR OWN PREFERENCES. 



117306 000000 
117310 000000 
11/312 
7633 117312 



L$LASTj 



LASTAD 



. BLKW 



.EVEN 

.WORD 
. WORD 



j N.M. (CHANGED FROM 40 TO 5) 



J Vj 
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SEQ 191 



7633 
7636 
7638 
763 1 ) 
7640 
7641 
7642 
764 3 
7644 
7645 
7646 
764 7 
764 c > 
7650 
7651 
7b32 
7653 
7634 
7633 
7636 
7637 
7tiS» 
7t>39 



5 HARDCOOEO P-TABLES MAY BE PLACED HERE BY USING THE SETUP MACROS. 
\ THIS SECTION IS OPTIONAL AND SHOULD BE REMOVED IF IT IS NOT BEING 

USED, CHANGE THE POINTER MACRO ARGUMENT TO REFLECT THE REMOVAL. 

THE P-TABLES ARE DELIMITED BY THE "BGNSETUP" AND "ENDSETUP" MACROS, 
THE "BGNSETUP" MACRO HAS ONE ARGUMENT WHICH IS THE NUMBER OF 
P-TABLE ENTRIES. EACH ENTRY IS DELIMITED BY THE "BGNPTAB" AND 
"ENDPTAB" MACROS. NEITHER OF THESE MACROS REQUIRE AN ARGUMENT. 

I BGNSETUP 1 
BGNPTAB 
. WORD 
ENDPTAB 
ENDSETUP 



END OF THIS MODULE 



000001 



; - 



.END 
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SYMBOL 


TABLE 


ACT ALP 


1066 76 


ACTBLO 


104440 


ACTCMS 


112506 


ACTCNL 


11405? 


ACTCNT 


112612 


ACTCPY 


107170 


ACTCSU 


114304 


ACTCTT 


106746 


ACTOFT 


114360 


ACTDIR 


110? 36 


ACTEXT 


106576 


ACTHLP 


104072 


ACTIDT 


10555? 


ACTMSC 


1064/0 


ACTNAD 


107246 


ACTNAL 


107404 


ACTNOD 


104130 


ACTNUT 


104062 


ACTNUL 


104070 


AC TONE 


106706 


ACTOPR 


106 756 


ACTPAT 


112332 


ACTRNA 


107612 


ACTRNL 


110670 


ACTRSP 


114710 


ACTRUN 


107464 


ACTSAV 


114136 


AC ISMS 


112414 


ACTSND 


113676 


ACTSR4 


1066 70 


ACTSUM 


105170 


ACTS/F. 


107112 


ACTTYP 


107104 


AC TUNS 


114202 


ACTUSF 


114426 


ACTXAO 


106606 


ACTZRO 


106716 


ACTOAL 


106736 


ACT1AL 


106/26 


AODMU * 


000001 G 


ADR 


000020 r» 


ADRBUf* 


OC2316 


ADRDEL 


054044 


ALLNOD 


061315 


ALPHA - 


000000 G 


ANCHOR 


0706/4 


ARGTY1 


061702 


ARGTY? 


061710 


AHGTY3 


06W21 


ARGTY4 


0617 32 


ARGTY5 


06174 3 


ARGTY6 


06174 7 


ARGTt7 


061757 


ASKCSR 


11 7146 


ASKPRI 


117235 


AWVLC 


117201 


ASSL.MB- 


000010 



B 


000010 




BAD 


116066 




BCOUNT 


050266 


G 


BD 


000010 


G 


B INDEX 


100342 


G 


BINHEX 


076044 




BITO - 


000001 


G 


BITOO - 


000001 


G 


BTT01 - 


000002 


G 


BIT02 - 


000004 


G 


BIT03 - 


000010 


G 


BIT04 • 


000020 


G 


BIT05 - 


000040 


G 


BIT06 * 


000100 


G 


BIT07 » 


000200 


G 


BIT08 - 


000400 


G 


B1T09 * 


001000 


G 


BITl - 


000002 


G 


BIT10 <■ 


002000 


G 


BITH • 


004000 


G 


BIT12 - 


010000 


G 


BIT13 » 


0200CO 


G 


BIT14 » 


040000 


G 


BIT15 - 


100000 


G 


BIT2 - 


000004 


G 


BIT3 * 


000010 


G 


BIT4 - 


000020 


G 


BIT5 - 


000040 


G 


BIT6 » 


000100 


G 


BIT7 - 


000200 


G 


BITS - 


000400 


G 


BIT9 - 


001000 


G 


BLDAST 


076724 


G 


BLDBUF 


077652 


G 


BLDFAS 


076376 


G 


BLDFLG 


002200 




BLDLD 


76132 


G 


SLDMSG 


052473 




BLDREQ 


077224 


G 


BMPCNT 


074632 




BMPEXI 


75356 




BMPMUL 


075164 




BMPRCV- 


000000 


G 


BMPREC 


075054 




BMPXMT- 


000001 


G 


BOE 


000400 


G 


BRDADR 


00403 6 




RUFLEN 


050332 


G 


BUILD - 


000003 




CADERR 


053022 




CAORER 


052746 




CALPHA- 


000016 




CASIST- 


000001 


G 


CBOADR 


002370 




cccnr* 


000023 




can ■ 


000005 


G 


CCLMSG= 


000035 







Kl 


t.: 
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CCLNAD- 


000004 G 


CMPER2 


067677 


CCLNAL- 


000010 G 


CMP5TR 


075702 


CCLSUM- 


000042 


CNDADR- 


000030 


CCNTR - 


000036 


CNDLOG- 


000037 


CCPYS - 


000027 


CNODAL- 


000031 


CDEFLT- 


000044 


CNODE - 


000015 


CDIR - 


000043 


CNTEND 


050242 


CEXADR- 


000013 


CNTRS 


050144 


CEXIT - 


000020 G 


CNTROO 


062047 


CFLAG 


003734 


CNTR01 


062127 


CFUNCT- 


000040 


CNTR02 


062176 


CHECK 


116520 


CNTR03 


06^232 


CITSUM 


050244 


CNTR04 


062277 


CITTST 


050242 


CNTR05 


062354 


CITVEC- 


000004 G 


CNTR06 


062424 


CITUEN- 


024100 G 


CNTR07 


062463 


CITWOR- 


014100 G 


CNTR08 


062533 


CLIACT 


103 726 


CNTR09 


062606 


CLIALN- 


000007 


CNTR10 


062657 


CLIALP- 


000006 


CNTR11 


062716 


CLIBIF- 


000003 


CNTR12 


062766 


CLIBR - 


000002 


CNTR13 


063034 


CLIBRX 


052222 


CNTR14 


063101 


CLIDEC- 


000011 


CNTR15 


063135 


CLIERM 


052113 


CNTR16 


06317 7 


CLIERR- 


000000 


CNTR17 


063245 


CLIEXI- 


000001 


CNTR18 


063320 


CLINBG 


052175 


CNTR19 


063365 


CLINUF 


052144 


COMPAR 


0615.V5 


CLINUM- 


000005 


CONES ■ 


000017 


CLIOCT- 


000010 


COPRSL* 


000024 


CLISPA- 


000004 


COUNT 


050304 G 


CLI5TR- 


000012 


CPATRN' 


000005 


CLITRE 


050516 


CPYCNT 


050326 G 


CLltPM 


052104 


CPYLMT 


053511 


CLKBR 


003740 


CR 


000015 G 


CLKCSR 


003736 


CRNALL' 


00003? 


CLKEN 


003746 


CRUN » 


000004 


CLKHZ 


003 744 


CSAVE ■ 


• 000006 


CLKINT 


070530 G 


CSAVR4' 


• 000014 


CLKSET 


070504 


CSHCTR- 


■ 000002 G 


CLKVEC 


00374? 


CSHMSG- 


■ 000034 


CLRMSG 


053432 


CSIZF. ' 


• 000026 


CLUFPR- 


000033 


CSR 


« 000016 G 


CMDBUF 


00220? 


CSRBUF 


050246 


CMDTY1 


061610 


CSRO 


050004 G 


CMDTY2 


061615 


CSR1 


050020 G 


CMDTY3 


061625 


CTARGT 


- 000000 G 


CMDTY4 


061633 


CTYPE 


« 000025 


CM0TY5 


061640 


CUNSAV 


« 000041 


CM0T16 


061644 


CUNSVF 


• 000045 


CMDTr 7 


061654 


C/EROS 


' 000020 


CMDTY8 


061661 


C$AU 


• 000052 


CMDTY9 


061667 


C$AUTO 


- 000061 


CMPADR 


116 700 


C$BRK 


■ 000022 


CMPRUF 


050334 G 


CJBSEG 


« 000004 


CMPER1 


067602 


C*BSUB 


- 000002 



SEQ 192 



CSCtFG 
CJCLCK 
C$CLEA 
C*CLOS 
CJCLP1 
CICVEC 
CJDCLN 
CJDODU 
CJDRPT 
C*DU 
CREDIT 
C*ERDF 
CtERHR 
C*ERRO 
CJERSF 
CiERSO 
CJESCA 
C*ESEG 
CSESUB 
C*ETST 
C$EXIT 
OGETB 
C$GtTW 
CiGMAM 
C5GPHR 
C*GPLO 
CtGPRI 
CilNIT 
CilNl.P 
CJMANI 
CSMEM 
CJMSG 
C$0PEN 
CiPNTB 
C*PNTF 
CJPNTS 
CSPNTX 
CJQIO 
CJRDBU 
CJREFG 
C*RESE 
C$REVI 
CiRFLA 
CtRPT 
OSEFG 
C*SPRI 
C5SVEC 
CiTPRI 
C . COLL 
CRC 
FRAM 
LCAR 
MLEN 
.MREC 
MXMT 
OP£N = 



C 

C 

c 
c 
c 
c 
c 

C.PREC* 



000045 

000062 

000012 

000035 

000006 

000036 

000044 

00OG51 

0000?4 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

000003 

000001 

000032 

000026 

000027 

00004 3 

000042 

000030 

000040 

000011 

000020 

000050 

000031 

000023 

000034 

000014 

000017 

000016 

000015 

000377 

00000 7 

00004 7 

000033 

000003 

000021 

000025 

000046 

000041 

000037 

000013 

0000 74 

000001 

000002 

000002 

000004 

000010 

000040 

000010 

000004 
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SEQ 193 


C.PXMD- 


000054 


G 


EMSG37 


064451 




FAFCT4- 


000050 


G 


GI3AD0- 


000020 


ILLAOR 


002656 






C.PXMT- 


000034 


G 


EMSG38 


064515 




FASI5T 


050454 


G 


GIXFER- 


000004 


INIADR- 


000000 


G 




C.PXM2* 


000050 


G 


EMSG4 


003532 


G 


FASKIP- 


000016 


G 


GIYES - 


OOOOIO 


. INICLN 


103344 






C.PXM3= 


000044 


G 


EMSG40 


064561 




FATFLG 


050252 


G 


HDMSG1 


055046 


INIEXI 


103354 






CROAT » 


000020 


G 


EMSG41 


064662 




FILENM 


115526 




HEADER - 


000016 G 


INIT 


102126 






C.RERB* 


000014 


G 


EHSG42 


064 764 




FILLIN 


115542 




HFLP - 


OOOOOl 


INIT1 


102154 






C.RERR* 


000016 


G 


EMSG43 


065062 




FINOSL 


116362 




HEL.P1 


055120 


I5R 


000100 


G 




C.RLEX= 


000032 


G 


EMSG44 


065141 




FLAG ■ 


000000 


G 


HELP10 


056141 


IXt 


004000 


G 




C.RLIN* 


000030 


G 


EMSG45 


065237 




FLAGWO- 


000000 


G 


HELP11 


056232 


I*AU - 


00004 1 






C.RMDB* 


000024 


G 


EMSG46 


065303 




FLAG1 


050250 


G 


HELP12 


056435 


1$AUTU» 


000041 






C.RTRY= 


000001 


G 


EMSG4 7 


065366 




FORWRD- 


00000? 


G 


HEL.P13 


056542 


I*CLN * 


00004 1 






C.RUNT* 


000010 


G 


EMSG48 


065446 




FRDADR- 


000004 


G 


H€LP14 


056641 


I*DU - 


000041 






C.SECS- 


000002 


G 


EMSG5 


003632 


G 


FREMEM 


050024 


G 


HELP15 


056 740 


I$HRD - 


0OO041 






C.SHRT* 


000004 


G 


EMSG50 


065544 




FRESIZ 


050022 


G 


HCLP16 


05 7043 


I UNIT- 


00004 1 






C.SIZ - 


000000 


G 


EMSG51 


065600 




FULAST 


061353 




HELP17 


05 7132 


I»M00 - 


000041 






C.XA8B- 


000070 


G 


EMSG52 


065633 




FULSLT 


116452 




HELPlri 


057235 


lihSG - 


000041 






C.XABT* 


000072 


G 


EMSG53 


065721 




F*AU « 


000015 




HELP19 


057305 


ISPROT- 


000040 






C.XDAT- 


000060 


G 


EMSG54 


065773 




FIAUTO- 


000020 




HELP2 


055221 


IIPTAB- 


000041 






C.XMDB- 


000064 


G 


EMSG55 


066063 




F$BGN - 


000040 




HELP20 


057410 


I *PUR • 


CK>0041 






COALT * 


000022 




EMSG56 


066116 




FICLEA- 


000007 




HELP21 


05746fc 


IIRPT - 


CO004 ; 






Cl\l.T - 


000021 




EMSG57 


066152 




F$DU ■ 


000016 




HELP22 


057551 


IiSEG • 


000041 






DATCMP 


07 7 734 


G 


EMSG58 


066211 




F*EN0 • 


000041 




HELP23 


05 7652 


XiSETU- 


0OO041 






DEL. SIR 


100526 


G 


EMSG59 


066267 




F SHARD - 


000004 




HELP24 


05 7 752 


I $ SF T - 


000041 






DEPADR 


003774 


G 


EMSG60 


066344 




FiHW - 


000013 




HELP25 


060102 


IiSRV » 


000041 






DESC = 


000002 


G 


EMSG61 


066412 




F UNIT- 


000006 




HEL.P26 


060166 


1 1 5ue « 


000041 






DESTIN- 


000000 


G 


EMSG62 


066451 




FIJMP - 


000050 




HELP27 


0602 72 


IiTST - 


00O041 






DFPTBL 


002170 


G 


EMSG63 


066526 




FiMOD - 


000000 




HELP28 


060374 


JUMP • 


00016 7 






DIAGMC- 


000000 




EMSG64 


066615 




FIMSG - 


000011 




HELP29 


060513 


KEtwOI 


002312 






DIRCO'.I 


110266 




EMSG65 


066705 




F*PR0T« 


000021 




HELP3 


055314 


KE^WD? 


002314 






DIRECT 


061337 




EMSG66 


066777 




FIPWR - 


000017 




HELP30 


060563 


KILMUL - 


000002 


G 




DNIKLG 


050262 


G 


EMSG67 


067071 




F$RPT * 


• 000012 




MEL.P4 


055 365 


I APCNT 


050336 






EDPACK 


0754 74 




EMSG68 


0S7121 




K*StG ■ 


- 000003 




HELP5 


0554 3b 


LCLKEN- 


000100 


<3 




E.r.CON- 


000036 


G 


EMSG69 


06 7204 




FISCFT" 


• 000005 




HE LP6 


055536 


LDADR1- 


000022 


G 




EF.NEW- 


000035 


G 


ENTRND 


116304 




FiSRV - 


■ 000010 




HELP 7 


055651 


LOA0R2- 


00O032 


G 




F_F.PWR = 


000034 


G 


Eorr 


116070 




F$SUB ' 


■ 000002 




HELP8 


055 76? 


LDFCT1- 


000020 


G 




FF.RES- 


000037 


G 


EOF END 


116205 




F*SU • 


• 000014 




HELP* 


36052 


LDFCT2- 


000030 


G 




Ef-'.STA- 


000040 


G 


ERRBLK 


052102 


G 


F$TES T « 


- 000001 




HEXBIN 


U75 724 


LDRESP 


052310 






EX 


001000 


G 


ERRFLG 


050270 


G 


GETCL 


103544 




HEXC 


076022 


LDSKIP- 


000016 


G 




FMSGO 


003526 


G 


ERRMSG 


052100 


G 


GETCOM 


077442 




HIADO - 


000002 G 


LENGTH 


061506 






EMSG^l 


0634 36 




ERRMBR 


052076 


G 


GETRNX 


077344 


G 


HIRCV - 


000006 G 


LF 


000012 


G 




EMGGC? 


C 6 3467 




ERROR 


071002 


G 


GETXNX 


077430 


G 


HIXMT - 


000012 G 


LGERMS 


067 745 






EMSG03 


06.VIP7 




ERRTYP 


052074 


G 


GICNTO' 


■ 000200 




HLPENO 


003322 


LOADO • 


000004 


G 




EMSG04 


0635* '■:. 




ERR1 


070306 


G 


G$0ELM 


• 0003 72 




HLPTAB 


003224 


LOCOST 


075360 






E.MSG08 


OS SGO'5 




ERR2 


070344 


G 


GSDISP 


• 00000 3 




HI P115 


056330 


LCE 


040000 


G 




EMSG1 


no.?5? 7 


V.1 


ERR3 


070452 


G 


GiEXCP 


• 000400 




HN 


075700 


LOGDEL 


054 3 32 






EMSGIO 


0*36 70 




EVL 


000004 


G 


GIHILI 


• 000002 




HOE 


100000 G 


LOGNAM 


053154 






EMSGil 


063 735 




EXIT * 


0000 11 




GILOLI 


• 000001 




HXFORM 


075566 


L0PD1R 


050346 


G 




EMSG1.4 


063 774 




EXIT1 


116666 




G$N0 


• 000000 




HXN 


75564 


LORCV - 


000004 


c; 




EMSG2 


003530 


G 


E*END - 


002100 




GSOFFS 


• 000400 




IBE 


OlOOOO G 


LORTGT 


004040 






EMSG22 


064050 




E$L0AO- 


000035 




GtOFSI 


• 0003 76 




IDENT - 


OOOOIO 


LOT 


OOOOIO 


G 




EMSC24 


064103 




FAA0R1- 


000022 


G 


GJPRMA 


• 000001 




IDFUNC- 


000005 G 


LOXHT * 


OOOOIO 


G 




EM5G25 


064157 




r AADR2- 


000032 


G 


G$PRMD 


- 000002 




IDTDAT 


04 76 74 


LOXTGT 


004060 






EMSG3 


003531 


G 


FAADf.3- 


000042 


G 


GSPHML 


■ 000000 




IDTSIZ 


04 7 770 


LP ADR 


004024 


G 




EMSG32 


064245 




FAADR4* 


000052 


G 


GJRADA 


■ 000140 




IDU 


000040 G 


LSRTRY 


002402 






EMSG34 


064 322 




FAFCT1- 


000020 


G 


GJRADB 


- cooooo 




IER 


020000 G 


I. ST 


0/6042 






EMSG35 


06436 7 




FAFCT2' 


000030 


G 


GiRADO 


- 000040 




II ADMS 


052565 


l.UPAIR 


06132b 






EMSG36 


064424 




FAFCT5* 


000040 


G 


G$RADL 


» 000120 




ILADM1 


052651 


L$ACP 


002110 


G 
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LSAPT 

L$AU 

L$AUT 

LSAUTO 

L$CCP 

LSCLEA 

L$CO 

L$DEPQ 

L$DESC 

LSDESP 

L$DEVP 

LSDISP 

L$DLY 

L$DTP 

LSDTYP 

L$DU 

L*DUT 

L$OVTY 

L$EF 

L$ENVI 

L$ERRT 

LSETP 

L$EXP1 

LSEXP4 

L$EXP5 

L$HARD 

L$HIME 

L.iHPCP 

HHPTP 

L*HW 

L$ICP 

L$INIT 

L$LADP 

LSLAST 

LSLOAD 

L$LUN 

L5MREV 

LSNAME 

1.4PRIO 

L$PROT 

L$PRT 

L$REPP 

L$REV 

I $RPT 

LJSOFT 

L$SPC 

L$SPCP 

LSSPTP 

L$STA 

L$SU 

I.JTEST 

t iTTMt. 

L$UNIT 

L 10000 

L 10001 

L 10002 

L10003 



002036 

103536 

002070 

103370 

002106 

103372 

002032 

002011 

002130 

002076 

002060 

002164 

002116 

002040 

002034 

103530 

002072 

002122 

002052 

002044 

052074 

002102 

002046 

002064 

002066 

117114 

002120 

002016 

002022 

002170 

002104 

102126 

002026 

117312 

002100 

002074 

002050 

002000 

002042 

102120 

002112 

002062 

002010 

102106 

117274 

002056 

002020 

002024 

002030 

002200 

002114 

002014 

002012 

002176 

002200 

0/0342 

0704 30 



G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

Ci 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 



L 10004 


070502 




L10005 


070654 




L 10006 


102116 




L10010 


103366 




L10011 


103370 




L10012 


103526 




L10013 


103534 




L10014 


103542 




L10015 


117110 




L10016 


117146 




L10017 


117274 




L5060 


052242 




MABQRT- 


004000 


G 


MATCH 


115746 




MBOOT - 


000010 


G 


MCARRI' 


OOiOOO 


G 


MCHADR* 


040000 


G 


MCRC > 


000002 


G 


MCSTAD 


004032 




MOISC ■ 


010000 


G 


MELOOP- 


001000 


G 


MEOM « 


020000 


G 


MESPAT 


061220 




MESPA1 


061271 




MFAIL > 


000400 


G 


MFERRS» 


040000 


G 


MFLAST- 


100000 


G 


hFRAM - 


■ 000004 


G 


MFUSED- 


040000 


G 


MHIBYT* 


• 000100 


G 


MILOOP' 


• 000400 


G 


MINTEN- 


• 000100 


G 


MINVRC' 


• 000040 


G 


MINVXM' 


■ OC0020 


G 


MLOBYT* 


■ 000200 


G 


MLOSS -■ 


« OiOOOO 


G 


MNOCAR' 


■ 002000 


G 


MNXM 


» 000004 


G 


MOVF - 


■ 000001 


G 


MRCVEN 


• 000001 


G 


MRCVIN' 


■ 100000 


G 


MRERRS 


• 040000 


G 


MRESET' 


• 000002 


G 


MRLAST 


■ 100000 


G 


MRLONG 


- 020000 


G 


MRSETP 


■ 020000 


G 


MRUNT 


- 004000 


G 


MRUSED 


- 040000 


G 


MSANIT 


• 002000 


G 


MSGAD 


003360 


G 


MSGCNT 


003342 


G 


MSGPRM 


054345 




MSG1AB 


003324 




MSGTYO 


061536 




MSGTY1 


061544 




MSGT>2 


061551 




MSGTY3 


061557 





MSGTY4 

MSGTY5 

MSGTY6 

MSGOC 

MSGOO 

MSG01 

MSG02 

MSG03 

MSG04 

MSG05 

MSG1 

MSG1C 

MSG11 

HSG12 

M5G2 

MSG2C 

MSG3 

MSG3C 

MSG4 

MSG4C 

MSG5C 

MSG6C 

MSHORT« 

MVAtID' 

MXERRS' 

MXLAST- 

MXMTIN' 

MXSETP« 

MXUSED- 

NCRTRY 

NET ADO ■ 

NET ADO 

NETAD1 

NEW 

NIRCNT 

NOADR 

NOCLK 

NOCMPR 

NOD 

NODADR 

NODE « 

NODTBL 

NODTY 

NODTYP 

NODO 

NODI 

NOD10 

NOD100 

N0D101 

NOD102 

N0D103 

NOD104 

NODI 05 

NOD 106 

N0D107 

N0D11 

N0D110 



061564 

061571 

061577 

003342 

003376 

003526 

003527 

003530 

003531 

003532 

054415 

003344 

054530 

054643 

054703 

003346 

054741 

003350 

055002 

003352 

003354 

003356 

000010 

100000 

040000 

100000 

000200 

010000 

040000 

002404 

000000 

050000 

050014 

103334 

050256 

004002 

061766 

053664 

053415 

053144 

000002 

002412 

002406 

053167 

050516 

050522 

050602 

051344 

051362 

051366 

051370 

051372 

0513/6 

051402 

051406 

050604 

051412 



N0D111 

N0D112 

N0D113 

N00114 

N0D115 

NOD 116 

N0D117 

N0D12 

N0D120 

NOD 121 

NOD122 

NOD 123 

N0D124 

N0D125 

N0D126 

N0D127 

NOD 13 

NOD 130 

N0D131 

N0D132 

NOD 133 

N0D134 

N0D135 

NOD 136 

NOD 137 

N0D14 

N0D140 

NOD 141 

N0D142 

N0D143 

N0D144 

N0D145 

NOD 146 

N0D147 

NOD 15 

NOD150 

N0D151 

N0D152 

NOD153 

N0D154 

N0D155 

N0D156 

NOD157 

N0D16 

NOD 160 

N0D161 

N0D162 

N0D163 

NOD 164 

N0D165 

NGD166 

NOD167 

NOD 1 7 

NOD 170 

N0D2 

N0D20 

N0D21 



051414 

051420 

051424 

051440 

051444 

051460 

051464 

050616 

051500 

051504 

051520 

051524 

051540 

051544 

051560 

051564 

050622 

051600 

051604 

051610 

051614 

051620 

051634 

051640 

051644 

050626 

051650 

051666 

051672 

051676 

051702 

051706 

051712 

051732 

050640 

051736 

051750 

051754 

051/72 

051776 

052014 

052020 

052034 

050644 

052040 

052044 

052046 

052052 

052056 

052060 

052064 

0520 70 

050662 

052072 

050526 

050664 

050676 



N0D22 

N0D23 

N0D24 

N0D25 

N0D26 

N0D27 

N0D3 

N0D30 

N0D31 

N0D32 

N0D33 

N0D34 

N0D35 

N0D36 

NOD37 

N0D4 

N0D40 

N0D41 

N0D42 

NOD4 3 

N0D44 

N0D45 

N0D46 

NOD4 7 

N0D5 

N0D50 

N0D51 

N0D52 

N0D53 

N0D54 

N0D55 

N0D56 

N0D57 

N0D6 

N0D60 

N0D61 

N0D62 

N0D63 

N0D64 

N0065 

N0D66 

N0D67 

N0D7 

N0D70 

N0D71 

NOD72 

NOD73 

N0D74 

NOD75 

NOD76 

N0D77 

NORESP 

NOTNUF = 

NTBHDR 
NULL « 
NULSTR 
N10$ 



050700 

050702 

050704 

05072U 

050724 

050744 

050530 

050750 

050766 

050772 

051010 

051014 

051030 

051032 

051052 

050544 

051056 

051074 

051076 

051100 

051102 

051106 

051112 

051116 

050546 

051122 

051124 

051130 

051144 

051150 

051166 

051172 

051212 

050562 

051216 

051222 

051224 

051230 

051244 

051250 

051254 

051260 

050566 

051272 

051276 

051302 

051306 

051312 

051316 

051322 

051340 

061446 

000012 

053176 

000000 

0530 :* 

050522 
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NIOO* 

N101S 

N102$ 

N104$ 

N106$ 

NllOJ 

N12$ 

N120$ 

N12U 

N122$ 

N123$ 

N124$ 

N126$ 

N130$ 

N132$ 

N134$ 

N135$ 

N14$ 

N140$ 

N141$ 

N142S 

N143* 

N16$ 

N160* 

N161$ 

N162$ 

N163$ 

N164$ 

N165$ 

N166S 

N167* 

N166$ 

N170S 

N175$ 

N178$ 

N18$ 

N180$ 

N181$ 

N182* 

N183$ 

N184$ 

N185$ 

N186$ 

N190$ 

N20$ 

N200$ 

N201$ 

N210$ 

N212$ 

N215* 

N22* 

N23* 

N24$ 

N25J 

M26J 

N2H$ 

N29$ 



051124 

051130 

051150 

051172 

051216 

051222 

050530 

051224 

051230 

051250 

051276 

051312 

051316 

051322 

051344 

051366 

051370 

050546 

051372 

051376 

051402 

051412 

050566 

051414 

051420 

051464 

051504 

051524 

051544 

051564 

051604 

051614 

051620 

051650 

051702 

050604 

051706 

051712 

051736 

051754 

051776 

052014 

052020 

052044 

050622 

052046 

052052 

052060 

052064 

052072 

050644 

05066'. 

050 700 

050 704 

050 724 

050/50 

050 :\'2 



N30$ 

N51* 

N32$ 

N33$ 

N80$ 

N81$ 

N82$ 

N90$ 

N95$ 

OK. 

OKFU 

OKRE 

OKTR 

ONEALT=- 

ONES - 

OPNERR 

OPRSEL- 

OPSLBF 

OSAPTS- 

CU^U - 

0$BGNR« 

0$BGNS= 

0$DU - 

G$ERRT> 

0$GNSW* 

OSPCIN* 

0*SETU> 

PART 

PASABT 

PATTRN 

PCCALL 

PCEFLG 

PCLKCT- 

PCLKEN' 

pcmsc; 

PHYADR 
PLINE 
PNT 
PRF.G14 

PRI 

PRIOO » 
PRIOl ' 
PRI02 - 
PRI03 • 
PR 104 ■ 
PRI05 • 
PR 106 : 
PRI07 •■ 
PROTOT> 
PROTOO 
PR0T02 
PRTNOD 

>'-$act 

Pf-M^R 

riti>- A 

PSCN 1 

P5CPV3 



051014 

051032 

051056 

051076 

051102 

051106 

051112 

051116 

051122 

061025 

061157 

061046 

061112 

000003 

000001 

116072 

000006 

003632 

000000 

OOOOOO 

000001 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000001 

OOOOOO 

100542 

060672 

061426 

050330 

050254 

001600 

000111 

067542 

004010 

116154 

001000 

070656 

002000 

OOOOOO 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

000014 

050306 

050310 

116/34 

003210 

003222 

003204 

00 3212 

002376 



P$EXIT 

P$GDBD 

P$MERR 

P$NNUF 

P$NUM 

PiPASS 

P$RADX 

P$SIZE 

P$TREE 

PITRV 

P$TR5 

P$TYPE 

QNAADO 

QNAAD1 

QNAEXI 

QNAINI 

QNAIN1 

QNAISR 

QNAPRO 

QNAPR1 

QNAVCO 

QNAVC1 

QUIT 

RASIST 

RBFCNT 

RBUFB 

RBUFNR- 

RCVBUF 

RCVERR 

RCVTGT 

RDERR 

RD2SAL- 

RDESC 

PC'f".55jZ* 

RCLIN 

RECAST 

RECERR 

RECEVE 

REPLY » 

REQID 

RESTOR 

RESTRT 

RETRY 

RElRYS 

RIFUNC' 

RLSTHI 

RLSTLO 

RNGSIZ 

RNXPRV 

R0MAO1 

ROMSIZ 

RPKLKN 

RRGCHN 

RRGCUR 

RRGL ST 

RRGNXT 

RRGPRV 



100670 

003221 

003223 

003220 

003214 

002400 

003216 

002374 

003206 

100544 

100554 

002372 

047772 

050006 

072122 

071114 

071534 

073064 

047776 

050012 

047774 

050010 

114272 

050422 

050264 

004100 

000151 

050300 

050276 

023772 

116126 

002354 

021200 

000014 

115414 

061407 

052345 

073740 

000001 

050340 

054333 

103234 

061462 

050274 

000020 

003772 

0037 70 

024256 

077360 

003764 

050302 

001100 

024560 

024222 

024252 

024226 

024234 



G 
G 

G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 



PRGSRT 

RRG001 

RRG002 

RRG003 

RRG004 

RRG005 

RRG006 

RRG007 

RRG010 

RRG011 

RRG012 

RRG013 

KRG014 

RRG015 

RRG016 

RRG017 

RRG020 

RRING 

RRINGH 

RRNGTB 

RSPFLG 

RSPOND* 

RTRYER 

RUNALL 

RUNCOM 

RUNDIR 

RUNLUP 

RUNPAT 

SAVCOM 

SAVED 

SAVTBL 

SCOLL - 

SELMSG 

SETADD 

5ETEXI 

SETFIL 

SETINI 

SETKLD 

SETUP 

SETVAL 

SETWRT 

SFPTBL 

SIADDR- 

SIOEV - 

SIECO - 

SIFNCT- 

SIMSG1 

SIMSG2 

SIMSG3 

SIMSG4 

SIMSG5 

SIMSG6 

SIMSG7 

SIRCPT* 

SIUECO- 

SI VERS* 

SIZLMf 



024216 

025674 

026774 

030074 

031174 

032274 

033374 

034474 

035574 

036674 

037774 

041074 

042174 

043274 

044374 

045474 

046574 

024260 

024544 

024172 

003202 

000046 

052411 

107622 

112000 

110246 

110700 

112342 

114260 

054324 

002536 

000004 

116246 

072346 

072450 

073006 

072212 

072410 

072126 

072720 

072454 

002200 

000042 

000053 

000030 

000035 

067266 

067325 

067360 

067420 

067441 

06 746 7 

06 7515 

000022 

000031 

00002 / 

0535 :*. 



G 



SLFTST 

SLOT 

SMLSIZ- 

SOURCC* 

SOURCE 

SRBL - 

START 

STATBF 

STATBL 

STAT1 - 

STAT2 * 

5TAT3 * 

STAT4 * 

STBLEN- 

STDR * 

STRBUF 

STRBU1 

SUMM 

SUMMRY- 

SUMMS1 

SUMMS2 

SUMMS3 

SUMMS4 

SUMMS5 

SUMMS6 

SVCGBL-- 

SVCINS- 

SVCSUB- 

SVCTAG- 

SVCTST- 

S$LSYM= 

S.B>TE 

S.COMP 

S.LEN 

S.NREC 

S.REC 

S.XFER 

TABCLR 

TABEMT 

TABFUL 

TASIST 

TBLLEN- 

TEMP 

TEMPI 

TEMP2 

TEMP3 

TENPWR 

TGTADR 

TGTSIZ 

TIMERS 

TIMER1 

TIMER2 

TIMMIN 

riMOUT 

TIMSEC 

TIMTCK 

TRAST 



050312 

002410 

000100 

000006 

075472 

000010 

102234 

002664 

002714 

000010 

000012 

000010 

000012 

000132 

000016 

002324 

002^46 

053422 

000007 

070043 

070064 

070150 

070177 

070262 

070300 

OOOOOO 

000001 

000001 

000001 

000001 

010000 

050040 

050036 

050034 

050032 

050030 

050042 

054220 

053346 

05?274 

050370 

000050 

050314 

050316 

050320 

050322 

100456 

023570 

02"W/0 

003762 

003756 

003760 

003750 

0502 72 

005752 

003754 

0613o7 
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SlMBOl. 


TABIF. 


























TrtVACT 


i0067? 




Til Oil- 


000000 


TUSW ■ 


010001 




VINVRC" 


000005 


G 


WRDfNT- 


000006 


G 


Tr^VAOR 


101656 




HLSYM- 


010000 


TMTES 


010015 




VINVXM- 


000004 


G 


WRITES 


1000/2 




TRVALN 


10147? 




TJLTNO- 


000001 


Tt 


103544 


G 


VLOBYT- 


00000 7 


(, 


WRTEXI 


72/36 




TRVALP 


101426 




TINEST« 


17777/ 


UAM 


000200 


G 


VLOSS ■ 


000014 


G 


XC 


0100CO 


G 


TRVPIf" 


100/76 




TJNSO ■ 


000005 


UCB1? 


050044 




VNOCAR- 


000013 


G 


Xf ER 


050324 


r, 


TRVBR 


100766 




TIPTNU- 


C 00000 


UNBOND 


053756 




VNXM « 


00000? 


r. 


XFl AG 


050260 


Ci 


TRVBRC 


1007U' 




TISAVL' 


177777 


UNIT 


050026 


G 


VOVF « 


000000 


r, 


XMIT 


7 3222 


G 


TRVDtC 


10107? 




T$SEGL- 


1777/7 


UNSMSG 


054265 




VRBL ■ 


000000 


G 


XMTDAT- 


000001 


G 


TRVfcRR 


100 MO 




T*5UBN« 


000000 


V 


100000 


G 


VRCVEN- 


000000 


G 


XMTSFT- 


000000 


r.i 


TRVFXI 


100750 




T STAGE* 


177777 


VABOwT" 


000013 


o 


VRCVIN« 


000017 


G 


XPKLEN- 


001100 


G 


TRVNMA 


loin? 




TSTAGN' 


010020 


VBOOT • 


000003 


G 


VRFRRS' 


000016 


(> 


XRGOJR 


024220 


G 


TRVNOH 


loo ,\v 




TSTEMP* 


000005 


VCARRI- 


000015 


G 


VRESET- 


000001 


G 


XRGINV 


024252 




TRVNUM 


K-1104 




TSTEST* 


000001 


VCHADR 


• 000016 


G 


VRLAST' 


000017 


G 


XRGl ST 


02423C 


G 


TRVOCS 


101104 




TSTSTM- 


• j 77777 


VCOLLO' 


• 000004 


G 


VRLONG- 


000015 


G 


XRGNXT 


024224 


G 


TRVS P A 


101020 




T$T5TS« 


■ 000001 


VCRC « 


- 000001 


G 


VRSETP- 


000015 


G 


XRGSRT 


024?14 


r • 


TRV^>TR 


101560 




TSSAU 


■ 010014 


VDISC ■ 


■ 000014 


G 


VRUNT ■ 


• 000013 


(. 


XRGOOi 


0245/4 


G 


T^TMSl 


060 ?15 




TMAUT" 


■ 010011 


VECTOR' 


■ 000014 


G 


VRUSED 


■ 000016 


G 


XRING 


024236 


G 


TSTMbJ 


060 755 




TSSCLE' 


■ 01001? 


VEL00P« 


• 000011 


G 


VSANIT- 


■ 000012 


G 


XRINGH 


024252 




TS1HS3 


060 755 




TSSDU 


■ 010013 


VEOM 


■ 000015 


G 


V SHORT 


• 000003 


G 


XRNGTB 


024? 1? 


G 


T5TMS4 


oeo?;o 




TSSHAR 


• 010016 


VF'AIL 


• 000010 


G 


VTOR 


■ 000000 


G 


XS 


000171 




T$A^uC- 


000002 




TSIHW 


■ 010000 


VFERRS 


' 000016 


G 


VVALIO 


• 000017 


G 


XtALWA- 


oooooo 




T*CUOE» 


002032 




TSSINI 


• 010010 


VELAST- 


• 000017 


G 


VXF.RRS 


• 000016 


G 


XIFALS- 


000040 




TtFnRN* 


00C105 




T$$M5G 


■ 010004 


VFRAM 


• 000002 


G 


VXLAST 


• 000015 


G 


XiO^F^" 


000400 




TSExCP- 


0*0000 




TMPRO 


• U1000 7 


VFUSF.0 


■ 000016 


G 


VXMTIN 


• 00000 7 


G 


xiTRue:- 


000020 




TiF'LAG- 


00OO40 




TSSRPT 


• 010006 


VHIBYT 


■ 000006 


G 


VXSETP 


■ 000014 


G 


/EROS - 


000002 


G 


1 U,MAN» 


000000 




T 5 ; 50* 


■ 01001 / 


VILOOP 


■ 0000 10 


G 


VXUSEP 


» 000016 


l'i 


/ROAL T - 


000004 


fi 


T$HILI> 


00000 7 




T*$SRV 


• 010005 


VINIEN 


• 000006 


G 


WAIT 


0/0720 


G 


5PATCH 


117274 


G 


TSI.AST- 


000001 


























. ABS. 


1173?4 
000000 


ooo 

001 
























ERRORS 


DETECTED; 



























VIRTUAL 


MEMORY USED; 


524 32 WO? 


U:S I 1?7 PAGES) 




















Dt^AMIC 


MEMORY . 


20060 


WORDS 


,V ^'GE^ 
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. . .Bl 


GLOBAL 


TEXT SECTION .. 


..B5 


BLDFAS - BUILD PACKE. 


...B9 


CLI 


ACTION 


T/iBLE 


ANO. 


...B13 




...CI 


GLOBAL 


TEXT SECTION .. 


..C5 


BLDAST - BUILD TRANS. 


...C9 


CLI 


ACTION 


T/iBLE 


ANO. 


...C13 




...Dl 


GLOBAL 


TEXT SECTION . . 


. .05 


BLOAST - BUILD TRANS. 


...D9 


CLI 


ACTION 


T<BLE 


AND. 


...D13 




...El 


GLOBAL 


TEXT SECTION .. 


..E5 


BLDREQ - BUILD REQUE. 


...E9 


CLI 


ACTION 


TABLE 


ANO. 


...E13 




...Fl 


GLOBAL 


ERROR REPORT 


..F5 


GET?NX - GET NEXT 


TR. 


...F9 


CLI 


ACTION 


TABLE 


AND. 


...F13 




...Gl 


GLOBAL 


ERROR REPORT .. 


..65 


GET?NX - GET NEXT 


TR. 


...G* 


CLI 


ACTION 


TABLE 


AND. 


...G13 




...HI 


GLOBAL 


SUBROUTINES S. . 


. .H5 


BLDBUF - BUILD MESSA. 


...H9 


CLI 


ACTION 


T.1BLE 


AND. 


...H13 




...11 


GLOBAL 


SUBROUTINES S.. 


..15 


DATCMP - COMPARE 


DAT. 


...19 


CLI 


ACTION 


TikBLF. 


AND. 


...113 




...Jl 


CLKSET 


CLOCK SETUP ,, 


,.J5 


DATCMP - COMPARE 


DAT. 


...J9 


CLI 


ACTION 


TMBLE 


AND. 


...J13 




. ..Kl 


CLKINT 


CLOCK INTERR., 


..K5 


WRITES - WRITE DATA . 


. ♦ »K9 


CLI 


ACTION 


TABLE 


AND. 


...K13 




...LI 


CLKINT 


CLOCK INTERR., 


. ,L5 


WRITES - WRITE DATA . 


...L9 


CLI 


ACTION 


TPBL«i 


ANO. 


...L13 




...Ml 


PRfcG14 


PRESERVE REG., 


..M5 


BINDEC CONVERT A 


32. 


...MS 


CLI 


ACTION 


TABLE 


AND. 


...M13 




...Nl 


WAIT 


WAIT FOR DEQ., 


..N5 


BINDEC CONVERT A 


32, 


. . ,N9 


CLI 


ACTION 


TABLE 


AND. 


...N13 




...B2 


ERROR - 


HANOLE QNA I., 


..66 


COMMAND LINE TRAVERS. 


...BIO 


CLI 


ACTION 


TABLfc 


AND. 


...B14 




...C2 


QNAINI 


INITIALIZE T., 


..C6 


COMMAND LINE TRAVERS 


...CIO 


CLI 


ACTION 


TABLE 


AND. 


...C14 




...D2 


QNAINI 


INITIALIZE T., 


..D6 


COMMAND LINE TRA 


ERS 


...D10 


CLI 


ACTION 


TABLE 


AND. 


...D14 


PROGRAM HEADER 


...E2 


QNAINI 


INITIALIZE T. 


..E6 


COMMAND LINE TRAVfRS. 


...E10 


CLI 


ACTION 


TABLE 


AND. 


...E14 


PROGRAM MACROS 


...F2 


QNAINI 


INITIALIZE T. 


..F6 


COMMAND LINE TRAVERS, 


...F10 


CLI 


ACTION 


TABLE 


ANO. 


...Fx4 


PROGRAM MACROS 


...G2 


SETUP - 


SETUP UP NI , 


..G6 


TRVADR - TRAVERSE 


CO. 


...G10 


CLI 


ACTION 


TABLE 


AND. 


...G14 


PROGRAM MACROS 


...H2 


SETUP - 


SETUP W NI . 


. . Ho 


TRVADR - TRAVERSE 


CO 


...H10 


CLI 


ACTION 


TABLE 


AND. 


...H14 


PROGRAM MACROS 


...12 


SETUP - 


SETUP UP NI . 


..16 


REPORT COOING SECTIO 


...110 


RESPONOCR 


TEST 




...114 


PROGRAM MACROS 


...J2 


SETUP - 


SETUP UP NI . 


. ♦ *Jv> 


PROTECTION TABLE 




...J10 


RE SPONGER 


TEST 




...J14 


PROGRAM MACROS 


. . .K2 


SETWRT 


- WRITE A SET. 


..K6 


INITIALIZE SECTION 


...K10 


RESPONDER ' 


TEST 




...K14 


PROGRAM MACROS 


...L2 


SETWRT 


- WRITE A SET. 


..L6 


INITIALIZE SECTION 


...L10 


RESPONDER 


TEST 




...L14 


PROGRAM MACROS 


M2 


SETWRT 


- WHITE A SET. 


• . M6 


INITIALIZE SECTION 


...M10 


READ LINE 1 


OF OPENED . 


...Mm 


PROGRAM MACROS 


N2 


SETFIL 


- f::ll an ado. 


...N6 


INITIALIZE SECTION 


...N10 


READ LINE OF OPENED . 


...N14 


DISPATCH TABLE 


B3 


SETFIL 


- FILL AN ADO. 


. ..B7 


INITIALIZE SECTION 


...Bll 


READ LINE 1 


OF OPENED . 


. ..B15 


DEFAULT HARDWARE P-T 


C3 


QNA INTERRUPT SERVIC. 


. ..C7 


INITIALIZE SECTION 


...Cll 


REAO LINE 1 


OF OPENED . 


...C15 


SOFTWARE P-TABLE 


03 


QNA INTERRUPT SERVIC. 


...07 


AUTOOROP SECTION 




...Oil 


READ LINE OF OPENED . 


...P15 


GLOBAL EQUATES SECTI 


E3 


XMIT - 


TRANSMIT QNA . 


. ..E7 


CLEANUP COOING SECTI 


...Ell 


READ LINE 


OF OPENED . 


...E15 


GLOBAL EQUATES SF.CTI 


F3 


XMIT - 


TRANSMIT QNA . 


. ..F7 


CLEANUP COOING SECTI 


...FH 


READ LINE 


OF OPENED . 


...F15 


GLOBAL EQUATES SECTI 


G3 


XMIT - 


TRANSMIT QNA . 


. ..G7 


DROP UNIT SECTION 


Gil 


READ LINE 


OF OPENED • 


. .G15 


BIT DEFINITIONS 


H3 


XMIT - 


TRANSMIT QNA . 


. ..M7 


ADO UNIT SECTION 




...Mil 


HAROWARE PARAMETER C. 


...HIS 


BIT DEFINITION 


13 


XMIT - 


TRANSMIT QNA . 


...17 


TEST It 




111 


SOFTWARE PARAMETER C. 


. ..115 


BIT DEFINITION 


J3 


RECEVE 


- RECEIVE QNA. 


. . ,J7 


GETCL COMMAND LINE 


111 


SOFTWARE PARAMETER C. 


...J15 


BIT DEFINITIONS 


K3 


RECEVE 


- RECEIVE QNA. 


. . .K7 


GETCL COMMA*© LINE 


Kll 


SYMBOL TABLE 




...K15 


BIT DEFINITICWS 


. ...L3 


RECEVE 


- RECEIVE QNA. 


. . .L7 


CLI ACTION TABLE 


AND 


Lll 


SYMBOL TABLE 




...L15 


GLOCAL DATA SECTION 


M3 


RECEVE 


- RECEIVE QNA. 


. ..M7 


CLI ACTION TABLE 


AND 


Mil 


SYMBOL TABLE 




...M15 


GLOBAL DATA SECTION 


. . ..N3 


BMPCNT 


- UPDATE STAT. 


. ..N7 


CLI ACTION TABLE 


ANO 


....Nil 


SYMROL TABLE 




...N15 


GLOBAL DATA SECTION 


B4 


BMPCNT 


- UPOATE STAT. 


. ..B8 


CLI ACTION TABLE 


AND 


B12 


SYMBOL TABLE 


* 


,,,B16 


GLOBAL DATA SECTION 


C4 


BMPCNT 


- UPDATE STAT. 


. .,ce 


CLI ACTION TABLE 


AND 


. ...C12 












GLOBAL DATA SECTION 


04 


BMPCNT 


- UPOATE STAT. 


. , .Dfl 


CLI ACTION TABLE 


AND 


,...012 












GLOBAL DATA SECTION 


. ...E4 


EDPACK 


- ETHERNET DA. 


. . .E8 


CLI ACTION TABLE 


AND 


£12 












GLOBAL DATA SECTION 


F4 


EDPACK 


- ETHERNET OA. 


. ..F8 


CLI ACTION TABLE 


AND 


F12 












GLOBAL DATA SECTION 


G4 


HXFORM 


- HEX FORMAT . 


. ..G8 


CLI ACTION TABLE 


AfX) 


. ...G12 












GLOBAL OATA SECTION 


H4 


HXFORM 


- HEX FORMAT . 


.. .H8 


CLI ACTION TABLE 


AND 


. ...H12 












GLOBAL DATA SECTION 


14 


HEXBIN 


- HEX TO BINA. 


...18 


CLI ACTION TABLE 


AND 


112 












GLOBAL DA™ SECTION 


J4 


HEXBIN 


- HEX TO BINA. 


. . ,J8 


CLI ACTION TABLE 


ANO 


J12 












COMTAPCi LINE ACTION 


K4 


BINHEX 


- BINARY TO H. 


. . .K8 


CLI ACTION TABLE 


AND 


. ...K12 












COr*JUK> LINE ACTION 


L4 


BLDLD 


- BUILD LOOP D. 


. . .L8 


CLI ACTION TABLE 


AND 


L12 












COTtlANO LINE ACTION 


. ..M4 


BLDLD 


- BUILD LOOP D. 


. ..M8 


CLI ACTION TABLE 


AND 


M12 












GLOBAL TEXT SECTION 


* ♦ • * n*r 


BLOFAS 


- BUILD PACKE. 


♦ ♦.N8 


CLI ACTION TABLE 


ANO 


N12 













